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Grand rendez-vous annuel des Apple-maniaques, 
Apple-Expo vous propose cette année d'entrer 
gratuitement si vous êtes porteur de Pom's, bonne 
nouvelle. 


Plus qu'une simple Expo, cette fête devrait nous 
réserver quelques grandes nouveautés : les 
HyperCard, MultiFinder et autre ImageWriter LQ 
mais on nous promet également la démonstration 
d'un réseau utilisant des fibres optiques, de 
multiples périphériques pour les handicapés (tablette 
graphique, écran tactile...) et le résultat de mille 
œuvres de développeurs. Bien entendu, Pom’'s vous 
y accueillera. 


Ce numéro ? Toujours en évolution, nous avons 
ouvert Pom's à l'assembleur ORCA/M - GS oblige -, 
au Turbo Pascal sur Macintosh, et même à une grille 
de mots croisés, objet d'un petit concours. Autre 
nouveauté, votre courrier électronique : nombreux 
sont nos lecteurs qui, 24 heures sur 24, déposent dans 
notre boîte à lettres CalvaCom questions, remarques 
et suggestions ; deux pages de ce numéro en sont le 
reflet. 


Pom's se veut une revue complète et variée et le pari 
est encore gagné pour cette rentrée : trois bancs 
d'essai, deux commandes externes ProDOS, un 
étonnant écran ‘virtuel’ en DOS 3.3, deux 
programmes Pascal, un petit montage électronique 
pour détecter la sonnerie du téléphone, un 
programme WPL.. Deux mois entre chaque 
parution, ce n'est pas si long pour tout exploiter ! 


Hervé Thiriez 




















Wotre propos est 
d'apporter ici une 
# solution pour trans- 
former des images 
haute résolution 
(images classiques 
sur la gamme Apple J[, J[+, //e, 
/Jc) en images de type GSPaint. 
Les systèmes de codage de ces 
deux types d'images sont très 
différents. 








Images classiques 


+ la résolution d'une image 
HGR classique est de 280 
points horizontaux sur 192 
points verticaux ; 

* un point écran est codé sur 1 
bit (allumé - éteint) ; 

° un octet sert à coder 7 points 
(sur les 7 bits de plus faible 
poids, le bit de poids fort 
servant au codage de la 
couleur) . Une ligne écran est 
donc composée de 40 octets 
(40 octets * 7 bits = 280 
points) ; 

* l'organisation de la page HGR 
est assez compliquée car les 
adresses des premiers octets de 
chaque ligne ne sont pas en 
ordre régulièrement croissant 
(ainsi le 4lème octet au lieu 
d'être au début de la deuxième 
ligne est au début de la 64ème, 
le 81ème au début de la 
128ème ligne ; tout se passe 
comme si l'écran étaitdivisé en 
3 zones de 64 lignes : pour 
plus de détails voir dans le ler 
numéro de Pom's l’article sur 
l'organisation des pages 
graphiques) ; 

° quoi qu'il en soit on peut 
obtenir l'adresse d'un point par 
la routine Moniteur HPOSN 
($F411) après avoir chargé 
comme suit les registres : 

X & Ÿ : position horizontale 
du point (faible-fort) 
A : position verticale 





le résultat est obtenu en lisant 
aux adresses $26 et $27. 


Images de type 
GSPaint 


Le mode de construction d'une 
image de type GSPaint est plus 
simple : 

« la résolution d'une telle image 
est de 320 points horizontaux 
sur 200 points verticaux ; 

* un point écran est codé sur 4 
bits (16 couleurs = 2 A 4 
combinaisons de 4 bits) ; 

* un octet sert donc à coder 2 
points (et on a 160 octets sur 
une ligne) ; 

+ l'adressage est on ne peut plus 
simple : les 160 premiers octets 
pour la lère ligne, les 160 
suivants pour la 2ème ligne, 
les 160 suivants pour la 3ème 
ligne, etc. ; 

* un écran GSPaint se compose 
donc de 32000 octets (200 * 
160) qui occupent la zone 
$E1/2000 à $E1/9CFF mais en 
fait le fichier sur disque en 
occupe 32768 car viennent 
ensuite les Scan Line Control 
Block et palettes (voir Pom’s 
31, Peeks et Pokes longs). 


Transformations 
d'images 


La transformation d'une image 
classique en une image de type 
GSPaint, grâce au programme 
binaire que nous proposons 
s'effectue en plusieurs étapes : 


° par manque de place en 

mémoire principale (Bank 00) 
pour y charger l'image HGR 
(4000 octets) et y reconstruire 
l'image type GSPaint (32768 
octets), tout en gardant de la place 
pour les programmes, on 
transfère l'image à transformer en 


Bank 01 (mémoire auxiliaire de la 
carte 80 colonnes) grâce à 
AUX.MOVE ($C311) ; 


* pour chaque ligne écran, on 
calcule l'adresse de ses 7 

premiers points (c'est à dire du 

premier octet) : 

+ _l'octet qui s'y trouve ainsi que 
le suivant sont décomposés en 

leurs 14 bits significatifs ; 


*_puis on reproduit 4 fois chaque 

bit , ce qui nous donne 4 * 14 
= 56 bits , que l'on recombine 8 
par 8 pour faire 7 octets, qui sont 
alors stockés, en mémoire 
principale à partir de $1000, les 
uns à la suite des autres ; 


*_on passe ensuite aux 14 points 

suivants, puis à la ligne 
suivante, en incrémentant à 
chaque fois l'adresse de stockage 
des 7 octets ; 


* une palette standard de 

couleurs est créée en $8E00. 
Enfin, grâce à la routine MOVE 
que nous avons ajouté au 
programme binaire, le tout est 
déplacé en Bank E1 à partir de 
l'adresse $2000 pour pouvoir être 
visualisé. 


Les fichiers qu'utilisent GSPaint 
sont de deux types : 


+ type $CO, format compacté, 
+ type $C1, format écran. 


Ce dernier format a été retenu et 
c'est pour pouvoir Sauver sous 
cette forme qu'il faut au 
préalable créer un fichier de type 
$C1 par l'ordre Basic : 

CREATE FICH, T$C1 

avant de sauvegarder par : 

BSAVE FICA, AS$1000, L32768 

Tout cela est effectué par le 
programme Basic TRANS- 
FORMEUR après qu'il vous ait 
demandé le nom de l'image à 
charger et qu'il vous ait proposé 
d'en respecter «ou den 
bouleverser les couleurs. 
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À noter que l'image finale 
n'occupe pas toute la largeur de 
l'écran GSPaint (marge droite de 
40 points et marge inférieure de 8 
points) en raison de la différence 
entre les 320/200 points de la 
page SHGR du IIGS et les 
280/192 points de l'image HGR). 


G 








9080:27 91 85 
9088:27 91 85 


Lé LA - 

Récapitulation 3090:00 00 01 

9098:A9 01 20 
HGR.SUPHGR.C 90A0:A5 1F 85 

90A8:91 85 EF 
Après avoir saisi ce code sous 90B0:01 20 27 
moniteur, vous lé sauvégarderez 90B8:00 20 27 
par : 90C0:91 E8 A9 


9SOCBTEE E8 A9 
9ODO:EF 20 C7 


BSAVE HGR.SUPHGR.C, A$9000,L$230 


9000:A9 00 85 F9 85 FD 85 3C 90D8:27 91 85 
9008:85 3E 85 42 A9 20 85 3D 90E0:20 67 91 
9010:85 43 A9 40 85 3F A9 10 90E8:27 91 85 
9018:85 FE 38 20 11 C3 A9 00 390F0:DD 90 EE 
S020:85 FA 20 DF 91 AC 00 AF 90F8:EE 90 90 
9028:00 00 01 20 67 91 AD 28 9100:EE DE 90 
9030:90 8D 90 90 8D DD 90 EE 9108:A5 FA C9 


9038:90 90 EE DD 90 EE DD 90 9110:90 18 A5 
9040:AD 29 90 8D 91 90 8D DE 9118:D0 02 E6 
9048:90 A9 02 85 CE A5 18 85 9120:C9 CO FO 
9050:CF A2 01 A5 1F 85 07 A9 9128:08 AS CE 


9058:01 20 27 91 85 EE E8 A9 9130:CE B5 18 
9060:00 20 27 91 85 EF 20 C7 9138:60 A2 00 
9068:91 E8 A9 01 20 27 91 85 9140:8E E8 EO 


9070:EE E8 A9 00 20 27 91 85 9148:00 77 07 
9078:EF 20 C7 91 E8 A9 O1 20 9150:00 80 00 





E8 A9 00 20 9158:0F FO OF E0 00 DF 04 AF 


20 C7 91 AF 9160:0D 8F 07 CC OC FF 0F 85 
67 91 A2 00 9168:FF A2 00 46 FF A9 00 69 
91N85'EE,E8 9170:00 95 18 E8 EO 08 DO F3 
A9 00 20 27 9178:60 A5 CE C9 00 DO 22 A5 
€7 91 Ed A9 9180:09 C9 00 FO 3F A5 CF C9 


85 EE E8 A9 9188:00 FO 39 A5 08 C9 01 FO 


85 EF 20 "CZ 9190:08 A5 07 C9 00 FO 2A DO 
200217 91 85 9198:25 A5 07 C9 00 FO 1C DO 
20 2/7. 91 «85 91A0:17 AS 09 C9 01 FO 0E 45 
E8 A9 01 20 91A8:CF C9 01 FO 08 A5 08 C9 


Ar 00 00 01 
00 A9 00 20 
20 ICT /9SIUEE 
90 EE 90 90 
DD 90 DO 06 


91B0:01 FO DE DO E4 A9 OF 60 
91B8:A9 06 60 A9 OA 60 A9 04 
91C0:60 A9 03 60 A9 00 60 A5 
91C8:EE 0A OA OA OA 85 06 18 
SEDOASYEE 65 06,91 FD E6k FD. 


91 90 E6 FA 91D8:AS5 FD DO 02 E6 FE 60 A5 
FONO3N4E" 51 91E0:F9 AO 00 A2 00 20 11 F4 
69 14 85 FD 91E8:A5 26 8D 28 90 A5 27 8D 
E6 F9 AS: F9 91F0:29 90 60 A9 00 85 D6 A9 


4C 1E 90 85 91F8:80 85 D7 A2 00 AO 00 AF 


09 A5 CF 85 9200:00 10 00 8F 00 20 El EE 
CER2ON7.5N91 9208:04 92 EE 00 92 C8 C4 D6 
47 91 9D 00 9210:D0 ED EE 05 92 EE O1 92 
DO F5 60 00 9218:E8 E4 D7 DO EO A9 00 8D 
08 2C 07 ©F 9220:04 92 8D 00 92 A9 20 8D 
0F 00 OD A9 9228:05 92 A9 10 8D 01 92 60 








Programme 
TRANSFORMEUR 


10 D$ = CHR$ (4): PRINT D$"BLOAD HGR.SU 
PHGR.C": PRINT : PRINT D$"PR£3": PRIN 
T : ONERR GOTO 125 

15 HOME TEXT VTAB 2: HTAB 3: INVERS 
E : PRINT "TRANSFORMATION D'IMAGE CLA 
SSIQUE HGR EN IMAGE DE TYPE GS/PAINT 
POUR TT GS" 

20 NORMAL CALL - 958: PRINT : HTAB 2 
8: PRINT "(NE MARCHE QUE SUR II GS)": 
FOR I = 1 TO 3: POKE 49204,I + 4: PO 
KE 49186,I + 12: FOR D = 1 TO 300: NE 
XT : NEXT : REM POKES POUR FAIRE JOL 


TE 

25 VTAB 8: INPUT " NOM DE L 
"IMAGE À TRANSFORMER ( RTN = CATALOG 
) ";IT$S: IF ITS = CHR$ (3) THEN 125 

30 IF IT$ = "" THEN HOME : PRINT : PRI 
NT D$"CAT": GET AS$: HOME : GOTO 25 

35 HGR PRINT D$"BLOAD"ITS",AS$2000":AD 
= 37302: POKE AD,15: POKE AD + 3,6: 
POKE AD + 6,10: POKE AD + 9,4: POKE À 
DES 12/3: POKB ADI T5 NO 

40 VTAB 22: PRINT " RESPECT DES COULEUR 
S ? (O/N) ";: GET A$: IF A$ = "N" THE 
N 65 

45 HOME : 
SFORMATION ? (O/N) ";: 


VTAB 22: PRINT " OK POUR TRAN 
GET A$: IF A$ 
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EE | 








€ "> MON THEN TEXT 7 HOME “2 GC0TOL25 

50 CALL 36864: PRINT : POKE 49193,161: 
CALL 37363: GET AS: POKE 49193,65: PR 
INT “ ON SAUVEGARDE ";ITS;".GS ? (O/N 
J MF: GET AS: ON A$ <_ > "Oo" GOTOL 15: 
NS$S = ITS + “.GS": PRINT D$"CREATE"NS 
Os) 4 

55 PRINT DS"BSAVE"NSS",TS$C1,A$S1000,L327 
68": HOME : TEXT : VTAB 15: HTAB 3: I 
NVERSE : PRINT NSS$;" EST MAINTENANT À 
U CATALOG": PRINT : HTAB 8: PRINT "ET 
LISIBLE SOUS GS/PAINT": NORMAL 


60 END 

65 PRINT :T = 1 

AOMETENT 1 THEN CLS = "NOIR":IN = 15 
75 IF T = 2 THEN CLS = "VIOLET":IN = 12 
80 IF T = 3 THEN CL$ = "BLEU":IN = 9 

85 IF T = 4 THEN CLS = "VERT":IN = 6 
90 IF T = 5 THEN CLS = "ORANGE":IN = 3 
95 IF T = 6 THEN CL$ = "BLANC":IN = 0 


100 IF T > 6 THEN HOME : GOTO 45 
105 VTAB 22: CALL - 958: HTAB 12: PRIN 
T “ QUELLE NUANCE POUR TRADUIRE LE >; 
CL$;" ( RTN = NO CHANGE )"‘ 
110 PRINT " 0 = Noir , 1 = Gris foncé 
, 2 = Brun , 3 = Violet | 4= Bleu fo 
ncé , 5 = Vert foncé |; 6 = Orange , 7 
= Rouge , 9 = Jaune , 10 = Vert clai 
r , il = Bleu clair , 12 = Mauve , 13 
= Bleu moyen , 14 = Gris clair , 15 
= Blanc"; 


Source HGR.SUPHGR.S 
Assembleur ProCODE 


téttttittttttttttttéttttittiatats 





AUX. MOVE $c311 
PALETTE $8E00 


fmmmms——--—umemmenmenmenmemee—— *+ 

“! TRANSFORMATION D'IMAGES !* 

Cr] HGR -> SHGR format GS fa 

*! Tomsoftware JUIN 1987 !* 

#7 ASSEMBLEUR PROCODE 12 

LU { BIG MAC Compatible ) L* 
fonmananmemansaneanssmsiressssss“ + 
ttédéthtététittttétestesesététésts 

PY = SF numéro de ligne 

Px = SFA ; numéro d'octet dans ia ligne/2 
LO.DS = $FD 

BI.DS = SFE 

FIRST = SEE 

SECND 5 SEF 

CASE 2 SFF : 0q adresses de stockage... 
OCTET = s6 ; .-.des données... 

BIT = sie 3 -.-pendant l'opération 
COUL = s7 : BIT codant la couleur 
RANG = S8 + colonne paire/impaire 
B1TI1 E $s93 + pixel d'avant 

BIT2 = SCE ; pixel à l'étude 

BIT = $CF ; pixel d'après 

MP.0L = $3C ; Origine de 13 ,... 
MP.0H = $30 3...80ne à transferrer 
MP.FL = $3E : Fin de la zone.., 
MP.FH = S3F 7... à transferrer 
MA.0OL = $42 ; Origine de 1a ..., 
MA.OH = $43 ;..-èone destination 


115 VTAB 21: HTAB 72: INPUT COS:T =T + 
l: ON CO$ = "" GOTO 70:CO = VAL (CO 
$S): IF CO > = 0 OR CO < 16 THEN POK 
E AD + IN,CO 
120 GOTO 70 
125 ER = PEEK (222):LI = PEEK (218) + 
PEEK (219) * 256:ER$ = "Y a un probl 
ème en ligne " + STRS$ (LI): IF ER = 
255 THEN HOME : END 

130 IF ER = 6 OR ER = 7 THEN ER$ = "Err 
eur sur le nom du Fichier ou du Volum 
e" 

135 IF ER = 4 THEN ER$ = "Disque protég 
é en écriture" 

140 IF ER = 3 OR ER = 8 THEN ER$ = "Err 
eur d'entrée/sortie" 

145 IF ER = 9 THEN ER$ = "Pas assez de 
place sur ce disque": PRINT D$"DELETE 
"NSS 

150 IF ER = 19 THEN ER$ = "Fichier déja 

existant sur le disque" 

155 HOME : VTAB 23: HTAB INT ((80 - L 
EN (ERS$)) / 2): PRINT ERS; CHRS (7): 
FOR D = 1 TO 3000: NEXT : HOME : TEXT 

: GOTO 25 

160 REM LES POKES AD (LIGNES 35 ET 11 
5) RETABLISSENT OU CHANGENT LES COULE 
URS ; CALL 36864 = ADRESSE DU PGM BIN 
., CALL 37363 = ROUTINE METTANT L'I 
MAGE EN $E1/2000 


es ProDOS 
GBASH : S$27 


ttétattreréeteté 
* PROGRAMME # 
Rédtététététatats 


ORG $9000 


* INITIALISATION DES ADRESSES * 


* * 


LDA £$00 
STA PY 
STA LO.DS 
STA MP.0CL 
STA MP.FL 
STA MA.OL 
LDA E£$20 
STA MP.OH 
STA MA.OH 
LOA £$40 
STA MP.-FH 
LOA £$10 
STA HI.DS 


; L'image GS sera stockée à 
; partir de $1000 en Mem. princ. 


* TRANSFERT IMAGE EN MEM.AUX, * 


* * 


SEC + Retenue à 1 pour transfert de 
JSR AUX,MOVE 4 is Mem Princ.-->Mem Aux, 


* BOUCLE SUR L'IMAGE * 
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DEBUT LDA £0O LDOA £OI 
STA PX JSR DECAL 
USR ADRESSE STA FIRST 
INX PS x | 
LDA £00 
JSR DECAL 
LDY £$00 STA SECND 
HEX AE 5 OPCODE DE LDA LONG JSR RECONS 
ADIM HEX 0000 ; = LO ET HI DE L'OCTET À ETUDIER 
HEX O1 ; DANS LA BANK O1 ( = MEM.AUX. J INX 3 X=4 
SR LABO LDA £01 
LDA ADIM JSR DECAL 
STA ADIM2 STA FIRST 
STA ADIMI INX 5 X=5 
INC ADIM2 LDA  £00 
INC ADIMI USR DECAL 
INC ADIMI STA  SECNO 
LDA ADIM+1 USR RECONS 
STA ADIM2+#1 
STA ADIMI+1] INX + X=6 
LDA  £01 
* RECONSTRUCTION DES 7 OCTETS * UJSR DECAL 
STA FIRST 
LDA £02 + pour respecter la couleur du 
STA BIT2 ;: 1" pixel de chaque ligne HEX AF 4 OPCODE DE LDA LONG 
LOA BIT ADIM1 HEX 0000 3 ler OCTET A DECORTIQUER 
STA BITJ HEX 01 3 EN BANK 01 
JSR LABO 
DEBSEC LDX £O1 
LDA BIT+7 LDX £O0 
STA COUL LDA £00 
LDA  £01 JSR DECAL 
JSR DECAL STA SECNO 
STA FIRST + 1° pixel d'un octet GCS/PAINT JSR RECONS 
INX + X=2 
LDA  £00 INC ADIMI 
JSR DECAL INC ADIMI 
STA SECND + 2° pixel de l'octet GS/PAINT INC ADIM2 
JSR RECONS INC ADIM2 
LDA ADIMI 
INX : X=3 BNE NINC 
LDA £0! INC ADIMI+] 
JSR DECAL INC ADIM2+1 
STA FIRST NINC INC PX 
INX 4 X=4 LDA PX 
LDA £00 CMP £20 
JSR DECAL BEC NEXT 
STA SECND UMP  OEBSEC ; on passe aux autres points 
JSR RECONS NEXT CiC 
LDA LO.DS 
INX : X=S5 AOC £20 
LDA £0i STA LO.DS 
JSR DECAL BNE NO.INC 
STA FIRST INC HI.DS 
INX s X=6 NO.iNC INC PY + incrementation ligne. 
LDA £00 LDA Pr 
USR DECAL CMP £192 + derniere ligne ? 
STA  SECND BEQ CREPAL + si oui, creation palette. 
JSR RECONS JMP DESUT ;: sinon, iigne suivante. 
* DECALAGE VERS LE PIXEL SUIVANT * 
HEX AE + OPCODE DE LDA LONG : . 
ADIM2 HEX 0000 3 2eme OCTET À DECORTIQUER 
HEX 01 ; EN BANK 01 DECAL STA RANG 
JSR LABO LDA BIT2 ; 
STA BITI ; 
LDX £00 LDA BIT3 + pixel suivant 
LDA £01 STA BIT2 î 
JSR DECAL LDA BIT,X ? 
STA FIRST STA BITJ 7 
INX + X=1 JSR CRECOUL 
LDA BHBITf7 RTS 
STA COUL 
LDA £00 #* CREATION DE LA PALETTE DE COULEURS * 
JSR DECAL # ” 
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CREPAL LOX £00 ; Crestion palette CS.PAINT 
LDA TABLE,X ; La palette standard 
STA PALETTE,X ; est composée 
INX + des 32 octets de la table 
CPX E£32 3 Ci dessous à raison de 
BNE CREPAL+2 + 2 octets par couleur 
RTS 

TABLE HEX 0000770741082C07 
HEX OF008000700F000D 
HEX A90FFOOFEOOODFO4 
HEX  AFOD8F07CCOCFF0E 


* LABORATOIRE *# 


* DISSECTION D'UN OCTET * 


STA CASE 3 l'octet est rangé dans ure case 


LABO 
+ de travail 


ROT :BIT de droite va dans la retenue 


+ donc Accumulateur = retenue 
4 le BIT est mis de coté 


£08 ; dernier BIT ? 


RTS 


* CALCUL DE LA COULEUR D'UN PIXEL HGR * 


BIT2 f 
£00 
EGUN 
BITI 
£00 
NOIR 
BIT3 î 
£00 
NOIR 
RANG 
£OI 
IMPAIR 
COUL 
£00 
VIOLET 
BLEU 
COUL 
£00 
VERT 
ORANGE 
BITI 
£01 


CRECOUL pixel en etude 


+: Bit du 


pixel precedent 


pixel suivant 


PAIR 


IMPAIR 


Bit du 


EGUN pixel precedent 


LA 


Bit du pixel suivant 


couleurs GS/PAINT sont 
comme suit : 

NOIR = O GRIS FONCE = 1 
MARRON = 2 VIOLET = 3 

BLEU FONCE = 4 VERT FONCE = 5 
ORANGE = 6 ROUGE = 7 ROSE = 8 
JAUNE = 9 VERT CIAIR = 10 
BLEU CLAIR = il MAUVE = 12 
BLEU MOY. = 13 GRIS CLAIR = 
BLANC = 15 

Dans les LDA ci-contre vous 
pouvez renDlacer 6 par 7,10 Par 


BLANC les 16 
codées 


ORANGE 


VERT 


à 
(91 
Se ee de de 


BLEU 


14 


VIOLET £03 


DES 


£00 


NOIR 


el 
el 
Le 
 % 





3 5, etc.,, voire des valeurs de 
+ couleurs totalement différentes 


* RECONSTRUCTION D'UN OCTET GS/PAINT * 


* * 





RECONS LOA FIRST + cremier pixel de l'octet 
ASL 
ASL 
ASL 
ASL 
STÀA OCTET 
CLC 
LOA  SECND ; second pixel de l'octet 
ADC OCTET 
STA (LO.DS),Y 7 fHI.DS LO.DS}: adresse oct 
INC LO.DS + GS/PAINT reconstitué. 
LDA LO.DS 
BNE RETOUR 
INC HI.DS 

RETOUR RTS 


* CALCUL DE L'ADRESSE DU PREMIER OCTET D'UNE LIGNE HGR 


LA 





Pr 

£00 
£00 
HPOSN 
GBASL 
ADIM 
GBASH 
ADIM+1 


ADRESSE  LDA 
LDYr 


CRLLLLLELI EE EEE LP EENT ETAT ILLILLESLLLLLEZ) 


* ROUTINE MOVE POUR TRANSFERER L'IMAGE * 
e DE $00/1000 VERS $E1/2000 À 


CRE LE LEE LELEEEN EL ELELL LEE ILE EEE: 


: COMPTEUR 256 OCTETS 
: COMPTEUR 128*256 


COMP1 = 
CaMP2 = 


MOVE 


TOURI 


SOURCE AF001000 ; LDA EN BANK 00 


DESTIN 8F0020E1 
DESTIN+1 
SOURCE +1 


+ STA EN BANK EI 


CONP1 
TOUR1 +2 
DESTIN+2 
SOURCE +2 


:256 OCTETS ? 


COMP2 
TOURI 


:128° BLOC DE 256 ? 


£00 
DESTIN+1 
SOURCE +I 
£S20 
DESTIN+2 ;au départ... 
£$10 fo. 

SOURCE +2 


:ON RETABLIT... 

;les adresses SOURCE er ... 
:DESTIN comme elles ... 
tétaient.., 


CLLLELELELLELELEELEL EEE TE EEE LE EEE LL EEELELESLLLEX ES 


* V. et B. TOMENO * 


CRE ER EEE LEE LEE LEE EEE EN EE ELLE ELLE ETET ENT 
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n guise de suite au 

programme du n° 

22 _dée Pons 
A (dessins de courbes 
fractales sur Macintosh) et pour 
que l'Apple // ne soit pas en reste, 
voici un programme qui profite 
pleinement de la récursivité du 
Pascal pour aller un peu plus loin 
dans les espaces non entiers. 


Le programme Récursives 
propose huit options : 


Courbe de Von-Koch 


La courbe fractale la plus connue. 
(Se reporter au Pom's 22 pour sa 
construction) 


Triangle 


Une autre fractale dans laquelle 
chaque segment : 


est remplacé par : 


Æ is 


en changeant à chaque fois le 
sens de rotation. 


Dragon 


Cette courbe illustre ce que l'on 
obtient en pliant une bande de 
papier un certain nombre de fois 
(2 par exemple) : 


—) 


et en la dépliant de façon que 
chaque pliure forme un angle 
droit : 


ce qui donne la courbe : 


Ponrs 192 


A noter que les ordres proposés 
pour cette courbe vont de 1 à 6 
mais que l'ordre réel va de 2 à 12 
par pas de 2. 


Courbe de Péano 


Le principe est le suivant : un 
segment : 


est remplacé par: 


et chaque petit segment obtenu 
subit le même traitement. On 
obtient une courbe fermée en 
appliquant cette méthode à un 
carré et la courbe obtenue tend à 
remplir un autre carté. 

Hélas, la haute résolution de 
l'Apple // est bien vite prise en 
défaut. 


La courbe de Sierpinski 


(traduite d'un programme en 
langage C paru dans Micro- 
Systèmes) elle utilise 4 
procédures mutuellement récur- 
sives pour calculer les 
coordonnées de chaque sommet. 


Hexagone 


Un hexagone qui contient des 
hexagones qui contiennent des 
hexagones.… 


Dentelle 


On partage un carré en 9, on 
inverse la couleur du centre et on 
recommence sur chaque petit 
carré... 


Sylvie Gallet 














Carrés 


Un carré dont les sommets sont 
prolongés par des carrés plus 
petits dont les sommets. 


Impression 
Si vous disposez d'un 
programme de dump sur 


imprimante, il vous suffit de le 
placer en librairie. Dans le cas 
contraire, toutes les instructions 
concernant l'impression doivent 
être supprimées du source. 


Sur les disquettes 
Pom’s... 


les fichiers sont transférables 
sur votre disquette Pascal 


- depuis la face DOS grâce à 
l'utilitaire Basic-Pascal livré 
avec; 

- depuis la face PmDOS grâce à 
l'utilitaire Universal File 
Conversion édité par Quality 


Software. 
G 
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y9 =: 2eousid 
4 uoq Jtraun 
{42} 223171 
U9u2 [,2,°°, ,} UT 42 JT 
2679 
(UOSs) 221714 
u2y3 uog j0ù JT 
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urbsq 
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{ 48baautT : 7 
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Pour l'Apple //, une commande externe ProDOS, 
Pour le Macintosh, un accessoire de bureau : 


FR Krupios 


ÔYMüoibY$'21-$) 
à-æ$0"nONJUÔCps!7 UÔ/N 


Kruptos est un utilitaire de cryptage disponible à | Revue 29 : 45,00 F 
tout instant. Kruptos rend inaccessible sans la clef 


; ne Le Disquettes : 
de décodage tous les fichiers qui doivent rester Apple 11 140Ko : 60,00 F 
confidentiels : courrier personnel, rapport Apple /| 800Ko : 80,00 F 


professionnel, fichier de clients. Même les Mactntosh : 80,00 E 
programmes et applications peuvent être protégés. 


Les deux versions de Kruptos sont des programmes Bon de commande 
Pom's, listés dans la revue n° 29. page 74 


Une disquette de jeux : 
Ludologic 





Au sommaire de la disqueite LUDOLOGIC, trois 
jeux de réflexion de difficulté croissante. Ces 
jeux qui nécessitent des neurones aussi 
calmes qu'entraînés, ne devraient pas 
décevoir les amateurs de puzzles et autres 
casse-têtes. 


ll n'est pas nécessaire de présenter TAQUIN, 
ce pousse-pousse informatique ici fort bien 
présenté. 

Nouvelle difficulté, NOIR & BLANC : 37 
hexagones peuvent être noirs ou blancs mais 
au départ vous n'en connaissez pas la 
couleur. Chacun comporte un numéro qui 
représente le nombre de cellules voisines 
blanches. À vous de reconstituer le décor 
original ! 

HEXAGONE MAGIQUE est encore plus délicat, 
même principe que le carré magique, mais ici 
vous devrez Installer les chiffres de } à 19 dans 
un hexagone de telle façon que les 5 
horizontales et 10 obliques totalisent chacune 
38 : bonne chance. 


| Fidèle à son habitude, Pom's vous propose sur cette 
disquette les sources des routines écrites par Sylvie 
Galiet en assembleur Lisa 2,5. Bien entendu, le Basic 80,00 F Franco, 
est également listable. TAQUIN et NOIR & BLANC Bon de commande page 74 
utiisent leur propre routine graphique qui permet de 
dessiner plus rapidement qu'avec des shapes. 
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f/oici un programme qui 
f/ permet de disposer 
ÿ d'un écran virtuel de 
256 colonnes par 48 
lignes de texte (ou 128 
par 96). Bien entendu, 
il ne sera pas possible 
d'afficher l'ensemble 
de l'écran, mais votre 
écran physique de 40 colonnes et 
24 lignes devient une fenêtre que 
vous déplacez dans les quatre 
directions grâce aux flèches du 
clavier. 

Pour ce qui est de l'usage de ce 
programme, elle dépend de 
l'imagination : stockage d'écran 
Gusqu'à 15), menus défilants, 
écrans type Visicalc. 


Principe de l'écran 
virtuel 


En 256 colonnes, les lignes sont 
numérotées de 0 à 47, la variable 
VTVIR ($07) représentant le 
numéro de ligne. Les colonnes 
sont numérotées de 0 à 255, la 
variable HTVIR représentant le 
numéro de la colonne. 


L'écran 1 est localisé par les 
coordonnées du point À qui est le 
coin supérieur gauche de l'écran 
physique. 

Le point B localise l'écran 
inférieur droit qui a les 
coordonnées maximales pour la 
fonction d'affichage. 


L'écran 128 colonnes se présente 
ainsi : 


Q 88 127 


: a | 


95 
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# Rou- C ontancin 


Les commandes 


Les différents paramètres à - 


transmettre sont des variables 
Basic ou des constantes (A, A, 
A(25), A%(25)...). 

Pour la présentation ci-dessous, 
les variables ont la signification 
suivante : 


LD Ligne début 

CD Colonne début 

VT V'I VIR 

HT HTVIR 

ÊE Ligne fin 

CF Colonne fin 

LE Toutes les L lignes 

E Toutes les C colonnes 


216 255 


écran 2 


Home 
&H, LD, LF, CD, CF 


Effacement de tout ou partie de 
l'écran virtuel. Les 4 paramètres 
sont obligatoires ; pour effacer 
tout l'écran, il faut : 

256c0l: &H,0, 4709256 
128 col: &H, 0, 95, O, 127 

La fonction effacement ne change 
pas l'affichage physique. 


Copy 
&C, VT, HT 


Cette fonction copie l'écran 
physique de telle façon que le 
point VTAB 1 HTAB 1 soit placé 
en VT, HT sur l'écran virtuel. Le 
programme contrôle que VT et 
HT ne dépassent pas les 
coordonnées du point B. 


Window 
&W, VT, HT 


Fonction inverse de la 
précédente : on place la fenêtre 
définie par VT, HT sur l'écran 
physique. Mêmes contrôles. 


Print 
&P, VT, HT 


Imprime sur l'écran virtuel le 
contenu de la variable définie en 
premier dans le programme. 
Cette variable sert de buffer 


d'impression. 

10 A$ = ““: REM définition 
20. 

175 A$ = "Hello" 


180 &P,VT,HT : REM Affiche 


Ce PRINT n'a pas d'effet 
immédiat sur l'écran : &W, VT, 
HT lerend visible. 

Le PRINT virtuel respecte les 
fonctions NORMAL, FLASH et 
INVERSE du Basic. 

La variable de transfert (A$ dans 
l'exemple) doit être définie en 
premier dans le programme Basic 
(gare au D$ = CHRS(4) 
fréquemment défini en tête des 
programmes...). 


Grand cadre 
&K, 1 


L'écran virtuel est bordé de 
blancs inversés, très utiles pour 
repérer les limites. Attention, les 
fonctions &C et &P écrasent sans 
complexe le cadre. &K, 1 rétablit 
la situation. 


Quadrillage 
&K, 2; L, C 


Cette fonction trace le grand cadre 
et trace une ligne toutes les L 
lignes et une colonne toutes les C 
colonnes. 


Visualisation 
&V, VT, HT 


Par cette commande, VTVIR et 
HTVIR sont mis à VTetHTetla 
fenêtre peut être dirigée à votre 
gré à l'aide des 4 flèches (sur le 
j[+, CTRL-K et CTRL-J 














mm —— 











remplacent ? et L). 
On sort de la visualisation par 


ESCSHIOUunNR'E RURN- "Si: 
l'utilisateur a pressé ESC, PEEK 
(9) = 141, s'il a pressé 
RETURN, PEEK (9) = 155. 
Turn page 

&T, 1 &T, 2 


Un écran virtuel peut en cacher 
un autre : 

La carte langage est constituée de 
2 banks de 4Ko et d'une partie 
commune de 8Ko. 

En 256 colonnes, les banks 1 ou 
2 contiennent 16 lignes et les 8Ko 
32 lignes. 

En 128 colonnes, les banks 1 ou 
2 contiennent 32 lignes et les 8Ko 
64 lignes. 

&T, 1 et &T, 2 permettent de 
choisir le bank utilisé. 


Colonnage 128/256 
Poke 10,0 


Affichage en 128 colonnes. Par 
défaut, 256 colonnes. 


Save page 
Call 37723 


Pour sauvegarder un écran, il 
convient d'en transférer le 
contenu de la carte 16Ko en 
$5180 par CALL 37723 puis de 
faire BSAVE PAGE, AS$5180, 
L$4000 


Load page 
Call 37742 


Pour charger un écran, il convient 
de faire BLOAD PAGE puis d'en 
transférer le contenu en carte 
16K0 par CALL 37742. 


VIRCEL, 
programme de 
démonstration 


À titre de démonstration, le 
programme VIRCEL utilise la 
plupart des commandes de l'écran 
virtuel. 


I1 permet de créer et de tenir à 
jour un écran géant de 128 
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colonnes par 96 lignes, écran 
divisé en cellules pour tenir à jour 
un petit fichier d'adresses par 
exemple. 


La cellule est un rectangle d'un 
nombre de lignes et de colonnes 
définis à la création de l'écran, ce 
sont des cases dans lesquelles on 
peut stocker du texte à volonté. 


Une cellule est constituée d'une 
ligne titre (vidéo inverse) et de 1 à 
20 lignes de texte. 


Une ligne est constituée de 1 à 39 
caractères, le premier caractère est 
en vidéo inverse et il est 
inaccessible. 





Le menu 


Chargement d'un écran 


Le programme vous demande 
d'entrer le nom de l'écran voulu. 
Pour charger l'écran VIDEO), il 
suffit de taper VIDEO. 


Consultation 


Utilisation directe de &V, VT, 
HT. On déplace l'écran par les 
flèches et on sort par ESC ou 
RETURN. 


Mise à jour 

Il y a 3 phases à distinguer : 

1 Visualisation de l'écran : vous 
devez jouer avec les flèches 
pour que la cellule à modifier 
soit présente à l'écran puis 
faire RETURN. ESC pennet 
d'abandonner la mise à jour. 


2 Affichage de * en vidéo 
inverse. 
Déplacer l'* de façon à la loger 
dans la cellule à mettre à jour, 
puis faire RETURN (ou ESC 
pour abandonner). 
Si vous faites sortir l'* de 
l'écran, on repasse en phase 1. 





3 Saisie du texte dans la cellule. 
La cellule choisie est placée 
dans le coin supérieur gauche. 


Création d'un écran 
Fonction très simple. 


Sauvegarde de l'écran 


Le programme demande le nom 
de l'écran, ce qui permet de le 
dupliquer. 


Note 


Ligne 1070 : les PEEK (33153) 
et 33154 servent à récupérer la 
taille d'une cellule (nombre de 
lignes et de colonnes). Ces# 
informations ont été stockées à la 
création de l'écran (ligne 4175) 
dans les 2 premiers octets de la 
page 2, non utilisée par VIRCEL. 


Comment faire ? 


Vous avez la disquette d'accom- 

pagnement Pom’s, pas de 

problèmes, vous disposez des 
fichiers nécessaires. Pour voir la 
démonstration, faire simplement 

RUN VIRCEL. 

Vous n'avez pas la disquette 

Pom's : 

1 saisir et assembler BIGTEXT, 
BIGPGM et BIGSAVE pour 
obtenir les fichiers BIGTEXT 
OBJO, BIGPGM.OBJO et 
BIGSAVE.OBJO, 

2 saisir et sauvegarder la table 
BIGPTR, 

3 saisir, sauvegarder et exécuter 
le programme VIRPUZZLE 
qui, à partir des 4 fichiers 
ci-dessus, constitue ECR- 
VIRT. 

4 pour vous servir de la 

démonstration, saisir, 

sauvegarder et exécuter 


VIRCEL. Ci 


&< DhgrTool 


Dans le numéro 30 de Pom's, un 
Couper/Coller énergique a fait 
perdre quelques octets à la 
récapitulation DHGRTOOL.O ; la 
routine ne peut fonctionner qu'en 
ajoutant à partir de $0B96 : 

84 20 2B EB 60 
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Programme VIRPUZZLE 


1 REM  VIRPUZZLE 

S REM : RASSEMBLAGE DES MORCEAUX 

10 HIMEM: 37248: REM PROTECTION DU PRO 
GRAMME 

20 D$ = CHRS (4) 

30 PRINT DS"BRUN BIGTEXT,.OBJ0" 


40 
45 
50 
60 


PRINT D$"BLOAD BIGPTR,A$93D0" 
PRINT D$"BLOAD BIGSAVE.OBJ0" 
PRINT D$"BLOAD BIGPGM.OBJ0" 


PRINT DS"BSAVE ECR-VIRT,AS$9180,LS$480 


Programme ‘VIRCEL' 


5 REM GESTION CELLULES TEXTE 


10 HIMEM: 20864: REM PROTECTION ECRAN V 
IRTUEL 

15 A$ = "A": REM PREMIERE VARIABLE DU PG 
M 

17 D$ = CHR$ (4):B$ = " 

20 PRINT D$'"BRUN ECR-VIRT": REM CHARGEM 
ENT 

30 POKE 10,0: REM ECRAN 128 COLONNES 

50 HOME : REM AFFICHAGE MENU 

60 : HTAB 10: INVERSE : PRINT "MENU": NOR 
MAL 

70 VTAB 4: HTAB 1l: PRINT “1 CHARGEMENT D 
‘UN ECRAN" 

80 VTAB 7: HTAB 1: PRINT "2 CONSULTATION 
CELLULES" 

90 VTAB 10: HTAB 1: PRINT “3 MISE À JOUR 
CELLULES " 

95 VTAB 13: ATAB 1: PRINT “4 CREATION D’ 
UN ECRAN" 

98 VTAB 16: HTAB 1: PRINT "5 SAUVEGARDE 
ECRAN" 

100 VTAB 13: HTAB l: PRINT “4 CREATION D 
‘UN ECRAN " 

105 VTAB 23: GET ES$: PRINT D$ 

110 IF E$ = "“l" THEN GOTO 1000 

120 IF ES$ = "2" THEN 2000 

130 IF E$ = "3" THEN 3000 

140 IF ES = "4" THEN 4000 

150 IF E$ = "S" THEN 5000 

160 GOTO 50 

1000 REM CHARGEMENT ECRAN 

1020 HOME : PRINT "NOM DE L'ECRAN "“: INP 
UT E$ 

1030 IF LEN (E$) = 0 THEN 1020 

1040 ÆONERR GOTO 1020 

1045 PRINT "JE CHARGE" 

1050 PRINT D$S"BLOAD ‘";ES$S",A$S5180" 

1060 CALL 37742: REM TRANSFERT SUR CART 
E 16K 

1070 L = PEEK (33153):Y = PEEK (33154) 

1080 GOTO 50 

2000 REM VISUALISATION 

2005 VT = O:AT = 0 
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2010 
2020 
3000 
3005 
3010 
3020 
3021 


3025 
3030 
30531 
3035 
3040 


3050 
3060 
3070 
3080 
3085 
3086 
3088 
3090 
3100 
3110 
3120 
3200 
3210 
3300 
3310 
3400 
3410 
3500 
3510 
3542 


3514 
3516 
3518 
3520 


3530 
3540 


3550 
3560 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 


4000 
4030 


& V,VT, AT 


GOTO 
REM 








50 
MISE À JOUR 


VT = O:HT = 0 
€ V,VT, HAT: REM AFFICHAGE 


VT = 


IF PEEK 


CAPE 


PEEK (7):HT = PEEK (8) 
(9) = 155 THEN 50: REM ES 


V = 12:H = 20 


IF HT > 88 THEN AT 
IF VT > 72 THEN VT = 
& W,VT, HT 
INVERSE : 
: NORMAL 
GET ES: 


1e À 
LR A 
TFVA 
IF À 
IF À 
ERA 
GOTO 
REM 


Del 
(l 
SS<STTTE 


(2) 
EC 
Il 


Y + l:H1 


Sr 


88 
72 


xt 


VTAB V: HTAB H: PRINT 


PRINT DS:A = 
= 21 THEN 3100 
= 8 THEN 3200 

= 11 THEN 3300 
10 THEN 3400 
27 THEN 50: REM 
CMD 13 THEN TUTO 
3500 

DROITE 

= 40 THEN 3010 

+ l: GOTO 3030 

= THEN 3010 

: GOTO 3030 
THEN 3010 

: GOTO 3030 

= 24 THEN 3010 

+ l: GOTO 3030 
MISE À JOUR EFFECTIVE 
: REM CALCUL DE VO, HO 
HTC HCHU= TVA — 


ASC (E$) 





ESCAPE 


5 k H H 





INT (H1 / SY) + 1:V0O = L 


* INT (VI / L) 


IF VO + L > 95 THEN 3030 

IR HO + SY > 128 THEN 3030 
D1 = 0:D2 = 0: REM DEPLACEMENTS VER 
T/HORIZ 

V2 = VO:H2 = HO: 

IF VO > 72 THEN V2 = 72:D1 = VO - 7 
2 

IF HO > 88 THEN H2 = 88:D2 = HO - 8 
8 

& W,V2,H2 - l: REM AFFICHAGE CELIU 


LE DANS LE COIN SUPERIEUR 


VTAB (1 + Di): HTAB (1 + D2): INPUT 
TS: IF LEN (T$) = O0 THEN 3030: REM 
TITRE 

AS$ = LEFTS (T$ + B$,Y): INVERSE 

& P,VO, H0 

NORMAL : FOR J = 1 TO L - 1 

VTAB (J + 1 + D1): HTAB (1 + D2}): I 

NPUT ES$ 

A$ = LEFTS (ES$ + BS$,Y): & P,VO + J, 

HO 

NEXT J 

GOTO 3030 

REM CREATION ECRAN 

HOME : HTAB 10: PRINT "CREATION D'U 
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2Ù 


N ECRAN" 4130 INVERSE :A$ = ES: & P,0,1: NORMAL 
4040 VTAB 5: HTAB 1: PRINT "NOMBRE DE LI 4140 & W,0,0: REM MM AFFICHAGE RESULTAT 
GNES G 4145 F$ = ES 
4050 VTAB 8: HTAB 1: PRINT "NOMBRE DE CO 4150 VTAB 23: HTAB 1: PRINT "CONFIRMEZ P 
LONNES " AR C" 
4060 VTAB 11: HTAB 1: PRINT "NOM DE L'EC 4160 INPUT ES: IF E$ < > "C" THEN 4030 
RAN" 4165 & W,0,0: VTAB 23: HTAB l: PRINT "AT 
4061 VTAB 5: HTAB 20: INPUT ES:X = VAL TENDEZ MERCI" 
(ES) 4170 CALL 37723: REM TRANSFERT EN MEM 
4065 IF X < 1 OR X > 20 THEN 4061 4175 POKE 33153,L: POKE 33154,Y 
4070 VTAB 8: HTAB 20: INPUT ES:Y = VAL 4180 PRINT DS"BSAVE ";F$;",AS5180,LS$3010 
(ES) L 
4075 IF Ÿ < 1 OR Y > 39 THEN 4070 4190 GOTO 50 
4080 VTAB 11: HTAB 20: INPUT ES: IF LEN 5000 REM SAUVEGARDE 
(ES) = O0 THEN 80 5010 PRINT "ENTREZ LE NOM DE L'ECRAN" 
4090 & T,l: REM PAGE 1 5020 INPUT ES: IF LEN (E$) = 0 THEN 500 
4100 POKE 10,0: REM 128 COLONNES G 
4110 & H,0,95,0,127: REM HOME 5030 GOTO 4145 
4120 IL = X + 1: & K,2,L,Y + 1 
Source ‘BIGTEXT :: STA $3F5 80 CMP #$54 
. 39 LDA #$90 81 BEQ BT 
Assembleur Big Mac, 40 STA $3F6 82 CMP  #$56 
format TEXT 41 LDA #$91 83 BEQ BV 
42 STA S$3F7 84 LDX #$10 
1 #ttttttttttttt tt 43 RTS 85 UMP ERROR 
2 * PAGE GEANTE 44 ***-PRO-PRINCIPALE 86 BH UMP SPHOME 
3 * 45 TAY 87 BC JMP SPCOPY 
4 * H.ROY-CONTANCIN 46 LDA DIM1 88 BW UMP  SPWIN 
5 * 19/05/86 1.1 47 BEQ E128 89 BP UMP  SPPRINT 
6 *AAAXAAAAAAAHAEX 48 E256 LDA #$00 90 BK UMP  SPCADRE 
7 PAGE EQU $06 49 STA DIMI+1 91 BT UMP SPCHPAG 
8 VTVIR  EQU S$07 50 LDA #$01 92 BV UMP SPVISU 
9 HTVIR EQU $S08 521 ST'A DIM1 93 LERÉSÉSLÉLSSSSSSS 
10 SAVX EQU $09 52 LDA #$530 94 *HOME 
11 DIM1 EQU SOA 53 STA DIM2 95 SPHOME JSR ADTX 
12 DIM2 EQU SOC 54 CLC 96 USR GETBYTC 
13 ADR EQU $18 55 BCC  NOPAG 97 STX" LIGD 
14 ADP EQU $1A 56 E128 LDA #$80 98 TXA 
15 RAM EQU $C083 57 STA DIMI+1 99 CMP DIM2 
16 ROM EQU S$C082 58 LDA #$60 100 BCS  ANOH 
HI7METG EQU $1C 59 STA DIM2 101 JSR GETBYTC 
18 LIGP EQU S$1D 60 NOPAG LDA PAGE 102 CPX DIM2 
19 MAXV EQU $CE 61 CMP #$02 103 BCS ANOH 
20 MAXA EQU $SCF 62 BEQ PAG2 104 INX 
21 LONG EQU S1Fr 63 LDA #$00 105 STX LIGF 
22 LIGD EQU $F9 64 STA SAVX 106 TXA 
23 LIGF EQU $FA 65 CLC 107 CMP  LIGD 
24 COLD EQU $FB 66 BCC PPTEST 108 BCC ANOH 
25 COLF EQU SFC 67 PAG2 LDA #$08 109 JSR GETBYTC 
26 PTR EQU S$SFD 68 STA SAVX 110 STX COLD 
27 SAVA EQU $FF 69 PPTEST TYA 1101 LDA DIMI+1 
28 GETBYTC EQU S$SE6FS5 70 CMP #S48 112 BEQ GB4 
29 SPPRINT EQU $9400 71 BEQO BH 1423 CPX DIMI1+1 
30 SPCADRE EQU $9403 72 CMP #543 114 BCS ANOH 
31 SPVISU EQU $9406 73 BEQ BC 115 GB4 JSR GETBYTC 
32 ADTX EQU $9409 74 CMP #557 116 STX COLF 
33 INIADR EQU $940C 715 BEQ BW 127 LDA DIMI+1 
34 ERROR  EQU $D419 76 CMP  #$50 118 BEQ SPHS 
35 ***-CHARGEMENT-ADRESSE 77. BEQ BP 119 CPX DIMIl+1 
36 ORG $9180 78 CMP #$4B 120 BCS ANOH 
7. LDA #$4C 79 BEO EK 121 SPHS CPX COLD 
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122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
1573 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 


ANOH LDX 


SUITHOM JSR 


BCLI CPX 


FIN LDA 


HSUIT INX 


HEFF LDY 


HEF2 STA 


BCS 


#4Atttttæ 


AD80 CLC 


INPUT JSR 


RTS 
#**** CACUL 
CALCADP LDA 
CLC 
ASL 
TAY 
LDA 
STA 
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ANOH 
SUITHOM 
#54D 
ERROR 
INIADR 
#500 
LIGD 
HSUIT 
LIGF 
HEFF 
ROM 


AD80 


BCLI1 
COLD 
#5 A0 
(ADR), Y 
COLF 


HEF2 
HSUIT 


ADR 
DIM1+1 
ADR 
DIM1 
ADR+1 
ADR+1 


ADTX 
GETBYTC. 
VTVIR 
MAXV 
SPCERR 
GETBYTC 
HTVIR 
MAXH 
SPCERR 
#$00 
LIGP 
LIG 
ADR 
#$D0 
ADR+1 
SAVX 
RAM, X 
RAM, X 
#$D0 
PTR 
#$93 
PTR+1 


184 
185 
186 
187 
188 
189 
190 
291 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236: 
237 
238 
239 
240 
241 
242 
243 
244 
245 


SPCOPY JSR 


SPCB1 LDA 


CMP 
BCC 
* ON STOCKE 
JSR 
LDY 


SPCB2 TYA 


SPCLS INC 


SPCFIN LDA 


SPCERR LDX 


SPWIN JSR 


SPWDEB LDA 


CMP 
BCC 


(PTR) ,Y 
ADP+1 


CHMAX 
INPUT 
LIG 

VTVIR 
SPCLS 


VTVIR 
#$517 
LIG 
SPCFIN 
UNE LIGNE 
CALCADP 
ATVIR 
#$00 
LONG 


LONG 
(ADP) ,Y 
SAVA 


SAVA 
(ADR), Y 


LONG 
LONG 
#$28 
SPCB2 
LIGP 
LIG 
AD80 


SPCB1 
ROM 


#$4D 
ERROR 
CAMAX 
INPUT 
LIG 
VTVIR 
LIGSUIT 


VTVIR 
#$17 
LIG 
SPWFIN 


* AFFICHER UNE LIGNE 


JSR 
LDY 
LDX 
STX 
SPWB1 LDA 
STA 
TYA 
PHA 
LDY 


CALCADP 
ATVIR 
#$00 
LONG 
(ADR) , Y 
SAVA 


LONG 


246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
297 
258 
2519 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
27:2 
273 
274 
275 
276 
PAT 
278 
279 
280 
281 


LIGSUIT INC 


SPWFIN LDA 
RTS 
SPCHPAG JSR 
JSR 


SPP1 STX 
RTS 
***X CHARGER 
CHMAX LDA 
SEC 
SBC 
STA 








SAVA 
(ADP),Y 


LONG 
LONG 
#528 
SPWB1 
LIGP 
LIG 
AD80 


SPWDEB 
ROM 


ADTX 
GETBYTC 
#$01 
SPP1 
#502 
SPP1 
#$53D 
ERROR 
PAGE 


MAXV ,MAXH 
DIM2 


#$517 
MAXV 
DIM1+1 


#$527 
MAXR 


Source ‘BIGPGM' 


Assembleur Big Mac, 
format TEXT 


$07 
#08 
#09 
569 


PRET ILIILLIIILIIIS 
2 * PAGE GEANTE 

3 * 

4 * H.ROY-CONTANCIN 
SM 179/ 05/8601" 

6 RRRAAXÉAARAÉÉEAÉE 
7 VTVIR  EQU 

8 HTVIR EQU 

9 SAVX EQU 

10 LOMEM  EQU 
11 ADR EQU 


H ka kb ba HR ba 
© © -J on OU in Ww N 
[al 


ADP EQU 
RAM EQU 
ROM EQU 


IG EQU 


LIGP EQU 
LONG EQU 
INVFLG EQU 
MAXV EQU 


$18 
$1A 
$C083 
$C082 
$1C 
$1D 
$1r 
$32 
$CE 








51 


61 








MAXH 
LIGD 
LIGF 
COLD 
COLF 
SAVY 
TXTPTR 
GETBYTC 
DIMI 
DIM2 
AD80 
INPUT 
SPWDEB 
CHMAX 
ERROR 


**4+-CHARGEMENT-ADRESSE 


El 
E2 
E3 
E4 
INIADR 


SPPRINT 


SPPI 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


ORG 
JMP 
JMP 
JMP 
JMP 
LDA 
STA 
STA 
STA 
LDA 
STA 
LDX 
LDA 
LDA 
RTS 
LDA 
PHA 
LDA 
PHA 
LDA 
STA 
LDA 


STA 
BNE 
DEC 
JSR 
LDA 
LDY 
LDA 


$cFr 
$F9 
SFA 
$FB 
SFC 
SFF 
SB8 
$E6FS5 
SOA 
$oc 
$925A 
$9268 
$92F7 
$934A 
SD419 


$9400 
SPPRINT 
SPCADRE 
SPVIS 
ADTX 
#$00 
LIG 
LIGP 
ADR 
#$D0 
ADR+1 
SAVX 
RAM, X 
RAM, X 


VTVIR 
ATVIR 


DIM2 
MAXV 
DIM1+1 


MAXH 

SPPI 
MAXH 
INPUT 
ROM 

#$00 
(LOMEM) , Y 
#$41 
SPPERR 


{(LOMEM) , Y 
#$80 
SPPERR 


{(LOMEM) , Y 
LONG 


{(LOMEM), Y 
ADP 


{(LOMEM) , Y 
ADP+1 


SPPS 


82 SPPERR 
83 

84 SPPS 
85 SPPB1 
86 

87 

88 

89 

90 

97 

92 

93 SPPMOVE 
94 SPPM1 
9 

96 

97 

98 

99 
100 

101 

102 

103 

104 CFIN 
105 

106 

107 

108 

109 

110 

171 

112 

113 

114 

145 

116 CN7F 
T7, 

118 

119 CINY 
120 

121 

122 SPPFIN 
123 

124 

125 

126 

127 

128 #*#+#%% 
129 ADTX 
130 

131 

132 

133 

134 

135 

156 

137 SPCADRE 
138 

139 

140 

141 

142 

143 


RTS 
+++ 
LDA 
GLC: 
ADC 
STA 
LDA 
ADC 
STA 
RTS 
JSR 
JSR 
CPX 
BNE 
JSR 
JSR 
CLC 


#$B0 
ERROR 
INIADR 
LIG 
VTVIR 
SPPMOVE 
SPPFIN 
AD80 
LIG 


SPPB1 
#$00 
{ADP) , Y 
#$80 
#$c0 
CFIN 


INVFLG 
#S7F 
CN?7F 


#$540 
INVFLG 


SAVY 


HTVIR 


{ADR) , Y 
SAVY 


CINY 


CFIN 


LONG 
SPPM1 


HTVIR 


VTVIR 
ROM 


TXTPTR 


#$01 
TXTPTR 
TXTPTR+1 
#$00 
TXTPTR+1 


ADTX 
GETBYTC 
#$02 
SPC 
OPT1 
OPT2 


144 
145 
146 
147 
148 
149 
150 
1551 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
172 
180 
181 
182 
183 


184 
185 
186 
187 
188 
189 
190 
491 
192 
195 
194 
195 
196 
197 
198 
199 
200 
201 

202 
203 
204 

205 


SPC1 


SPKFIN 


SPCERR 


BCC 
CPX 
BNE 
JSR 
LDA 
RTS 
LDX 
UMP 


SPKFIN 
#$01 
SPCERR 
OPT1 
ROM 


#$B0 
ERROR 


*** GRAND CADRE 


OPT1 
OPTILI 
OPTIS1 


OPT1S2 


OPTILF 
FINOPT1 


JSR 
JSR 
TSR 
INC 
LDA 
CMP 
BEQ 
LDX 
CPX 
BEQ 
CMP 
BEQ 
LDA 
LDY 
STA 
LDY 
DEY 
STA 
CLIC 
BCC 
JSR 
LDA 
RTS 


INIADR 
TRAIT 
AD80 
LIG 
LIG 
#$5F 
OTILF 
DIM1 
#$00 
OPT1S2 
#$2F 
OPTILF 
#520 
#$00 
{ADR) , Y 
DIMI1+1 


(ADR), Y 
OPTIS1 


TRAIT 
ROM 


***QUADRILLAGE 


OPT2 


OP2B 


TRCOL 


COLSUI 


JSR 
STX 
JSR 
STX 
JSR 
LDA 
STA 


STA 
STA 
LDA 
CMP 
BNE 
JSR 
LDA 
STA 
GEC 
BCC 
LDA 
CMP 
BNE 
LDY 
LDA 
STA 
LDA 
STA 
INC 
LDA 
CMP 
BEQ 


GETEYTC 
LIGD 
GETBYTC 
COLD 
INIADR 
#$00 
COLF 
LIGF 
MAXH 
LIGD 
LIGF 
TRCOL 
TRAIT 
#$00 
LIGF 


LIGSUI 
COLD 
COLF 
COLSUI 
MAXH 
#$520 
{ADR}, Y 
#$00 
COLF 
MAXH 
MAXA 
DIM1+1 
LIGSUI 
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206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 

222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
293 
234 
299 
236 
237 
238 
2:39 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
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LIGSUI 


OPT2FIN 


x 
TRAIT 


TRBL 


TRFIN 


INC 
CLC 
BCC 
JSR 
LDA 
STA 
STA 
INC 
INC 
LDA 
CMP 
BEQ 
BNE 
LDA 
RTS 


LDA 
LDY 
STA 
INY 
CP 
BEQ 
BNE 
RTS 


COLF 


TRCOL 
AD80 
#500 
MAXR 
COLF 
LIG 
LIGF 
LIG 
DIM2 
OPT2FIN 
OP2B 
ROM 


#520 
#500 
(ADR), Y 
DIM1+1 
TRFIN 
TRBL 


**##X*VISUALISATION 


SPVIS 


SPVISU 


BIT 


SPWAIT 


LDA 
JSR 
JSR 
DEC 
DEC 
JSR 
INC 


BCC 


DIM1+1 
CHMAX 
INPUT 
MAXH 
MAXV 
SPWDEB 
S4E 
BITI 
S4F 
$C000 
SPVISU 
$C000 
$C010 
#S9B 
SPVFIN 
#S8D 
SPVFIN 
#588 
SPVGAUCHE 
#595 
SPVDROITE 
#S8B 
SPVHAUT 
#$82 
SPVBAS 
INIADR 
SPWDEB 


SPVISU 


SPVGAUCHE LDA HTVIR 


268 INC HTVIR 
269 CL 

270 BCC SPWAIT 
271 SPVHAUT LDA VTVIR 
272 BEQ SPWAIT 
273 DEC VTVIR 
274 CLG 

275 BCC SPWAIT 
276 SPVBAS LDA VTVIR 
EI) CMP MAXV 
278 BEQ SPWAIT 
279 INC VTVIR 
280 CC 

281 BCC SPWAIT 
282 SPVFIN STA S09 
283 RTS 


Source ‘BIGSAVE 


Assembleur Big M&, 
format TEXT 


BEQ SPWAIT 
DEC ATVIR 
CLC 

BCC SPWAIT 


SPVDROITE LDA HTVIR 


CMP. MAXHA 
BEQ SPWAIT 


51 HARHARHHAAHAHHHX EX 

2 *TRANSFERT-ECRAN 

3 *ENTRE-S5180-ET-CARTE16K 

4 ÉRRRAARRARÉ RÉ RÉ RS 

5 ADP EQU $18 

6 ADR EQU S$lA 

7 RAM EQOU S$C083 

8 ROM EQU SCO82 

9 ORG $935B 
10 VERMEM LDA #SI1A 
11 STA K1B2+1 
22 STA K2B2+1 
13 LDA #$18 
14 STA K1B2+3 
25 STA K2B2+3 
16 JMP TRANS 
17 VER16K LDA #$S18 
18 STA K1B2+1 
19 STA K2B2+1 
20 LDA #S1A 
21 STA K1B2+3 
22 STA K2B2+3 
23 TRANS  LDA #551 
24 STA ADP+1 
25 LDA #$80 
26 STA ADP 
27 LDA #$S00 
28 STA ADR 
29 LDA  #SD0 
30 STA ADR+1 
31 BANKI  LDA RAM 
92 LDA RAM 
33 LDX #$00 
34 K1B1 LDY #$00 
35 K1B2 LDA  (ADR),Y 
36 STA (ADP}),Y 
27 INY 
38 BNE K1B2 
39 INC ADR+1 





40 INC ADP+1 
41 INX 
42 CPX #5S30 
43 BNE KI1Bi 
44 BANK2 LDX #508 
45 LDA RAM, * 
46 LDA RAM,X 
47 LDA #$00 
48 STA ADR 
49 LDA  #SD0 
50 STA ADR+1 
51 LDX #$00 
52 K2B1 LDY #$00 
53 K2B2 LDA  (ADR),Y 
54 STA (ADF),Y 
55 INY 
56 BNE K2B2 
57 INC ADRt1 
8 INC ADP+1 
59 INX 
60 CPX #$10 
61 BNE K2B1 
62 FIN LDA ROM 
63 RTS 


Schémateur... 
suite 


Le programme de dessins de 
graphes et fonctions du numéro 
31 de Pom’s mérite un petit patch 
pour permettre la lecture des 
fichiers sur des disquettes ne 
contenant pas la routine de 
chargement rapide : 


+ Dans le programme 
Schémateur, 
A jouter : 
2365 PRINT D$"BLOADCHARGE. 
OBJ, A$ 9000" 
Modifier : 


2100 CALL 36864 
2390 CALL 36864 


+ _ Dans le programme Gravure, 


Ajouter : 

145 PRINT DS"BLOADCHARGE. 
OBJ, AS 9000" 

Modifier : 

160 CALL 36864 : £€"GRAV.C" 
‘AG 

260 HGR : POKE 49234,0 : C 
ALL 36864 : &IMS, 8192 
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/ G e 92A8:60 20 4A 93 20 68 92 A5 94B0:85 B8 AS B9 69 00 85 B9 
Récapitulation 92B0:1C C5 07 90 2B 18 A5 07 94B8:60 20 AB 94 20 F5 E6 EO 
BIGPTR 92B8:69 17 C5 1C 90 2A 20 9A 94C0:02 DO 09 20 DC 94 20 OC 

92C0:92 A4 08 A2 00 86 1F 98 94C8:95 18 90 07 EO D1 DO O7 
ne ie DE DS 92C8:48 A4 1F Bl lA 85 FF 68 94D0:20 DC 94 AD 82 CO 60 A2 
nonUr Vols la Svegaderez par 92D0:A8 A5 FF 91 18 C8 E6 1F 94D8:B0 4C 19 D4 20 OC 94 20 
BSAVE BIGPTR,A$300.L$30 92D8:A6 1F EO 28 90 E9 E6 1D 94E0:67 95 20 5A 92 E6 1C A5 

92E0:E6 1C 20 5A 92 18 90 C7 94E8:1C C9 5F FO 18 A6 OA EO 
0300:00 04 80 04 00 05 80 05 92E8:AD 82 CO 60 A2 4D 4C 19 94F0:00 FO 04 C9 2F FO OE A9 
0308:00 06 80 06 00 07 80 07 92F0:D4 20 4A 93 20 68 92 A5 94F8:20 AO 00 91 18 A4 OB 88 
0310:28 04 A8 04 28 05 A8 05 92F8:1C C5 07 90 2B 18 A5 0? 9500:91 18 18 90 DD 20 67 95 
0318:28 06 A8 06 28 07 A8 07 9300:69 17 C5 1C 90 2A 20 9A 9508:AD 82 CO 60 20 F5 E6 86 
0320:50 04 DO 04 50 05 DO 05 9308:92 A4 08 A2 00 86 1F B1 9510:F9 20 F5 E6 86 FB 20 OC 
0328:50 06 DO 06 50 07 DO 07 9310:18 85 FF 98 48 A4 1F A5 9518:94 A9 00 85 FC 85 FA 85 

9318:FF 91 1A 68 A8 C8 E6 1F 9520:CF A5 F9 C5 FA DO OA 20 

. : 3 9320:A6 1F EO 28 90 E9 E6 1D 9528:67 95 A9 00 85 FA 18 90 
Récapitulation 9328:E6 1C 20 5A 92 18 90 C7 9530:1D A5 FB C5 FC DO 6A A4 
s , 9330:AD 82 CO 60 20 09 94 20 9538:CF A9 20 91 18 A9 00 85 

ECR-VIRT 9338:F5 E6 EO 01 FO 09 EO 02 9540:FC E6 CF A5 CF C5 0B FO 

B : : 9340:FO0 05 A2 3D 4C 19 D4 86 9548:05 E6 FC 18 90 E3 20 5A 

Cette récapitulation , 9348:06 60 A5 OC 38 E9 17 85 9550:92 A9 00 85 CF 85 FC E6 
regroupe les objets issus 9350:CE A5 0B 38 E9 27 85 CF 9558:1C E6 FA AS 1C C5 OC FO 
des trois sources et la table 9358:60 FB 00 A9 1A 8D 99 93 9560:02 DO BE AD 82 CO 60 A9 
BigPtr 9360:8D BD 93 A9 18 8D 9B 93 9568:20 AO 00 91 18 C8 C4 OB 

. : - 9368:8D BF 93 4C 7E 93 A9 18 9570:F0 02 DO F7 60 A5 O0B 20 
Après avoir saisi ce code sous 937%0:0D 99 d3 6D BD 93 40 À 9578:4A 93 20 68 92 C6 CF C6 
moniteur, vous le sauvegarderez par rad) do D 0 on 9580:CE 20 F7 92 E6 4E DO 02 
BSAVE ECR-VIRT,A$9180,L$480 RDS 10 aoten gs Ja US 2586-26 dr 26 0 CO 200 
9180:A9 4C 8D F5 03 A9 90 8D 9388:85 1A A9 DO 85 1B AD 83 9590:00 CO 2C 10 CO C9 9B FO 
9188:F6 03 A9 91 8D F7 03 60 9390:C0 AD 83 CO A2 00 AO 00 9598:45 C9 8D FO 41 C9 88 FO 
9190:A8 A5 OA FO OF A9 00 85 9398:B1 1A 91 18 C8 DO F9 E6 95A0:15 C9 95 FO 1A C9 8B FO 
9198:0B A9 O1 85 OA A9 30 85 93A0:1B E6 19 E8 EO 30 DO EE 95A8:21 C9 8A FO 26 20 OC 94 
91A0:0C 18 90 08 A9 80 85 0B 93A8:A2 08 BD 83 CO BD 83 CO 95B0:20 F7 92 18 90 CE AS 08 
91A8:A9 60 85 OC A5 06 C9 02 93B0:A9 00 85 1A A9 DO 85 1B 95B8:F0 F3 C6 08 18 90 EE AS 
91B0:FO 07 A9 00 85 09 18 90 93B8:A2 00 AO 00 B1 1A 91 18 95C0:08 C5 CF FO E8 E6 08 18 
91B8:04 A9 08 85 09 98 C9 48 93C0:C8 DO F9 E6 1B E6 19 E8 95C8:90 E3 AS 07 FO OF C6 07 
91C0:FO 1D C9 43 F0 1C C9 57 93C8:E0 10 DO EE AD 82 CO 60 95D0:18 90 DA A5 07 C5 CE FO 
91C8:F0 1B C9 50 FO 1A C9 4B 93D0:00 04 80 04 00 05 80 05 95D8:D4 E6 07 18 90 CF 85 09 
91D0:F0 19 C9 54 FO 18 C9 56 93D8:00 06 80 06 00 07 80 07 95E0:60 90 CF 85 09 60 00 00 
91D8:F0 17 A2 10 4C 19 04 4C 93E0:28 04 A8 04 28 05 A8 05 95E8:BB BB 00 00 BB FB 00 00 
91E0:F4 91 4C A9 92 4C F1 92 93E8:28 06 A8 06 28 07 A8 07 95F0:BB BB 00 00 BB FB 00 00 
91E8:4C 00 94 4C 03 94 4C 34 93F0:50 04 DO 04 50 05 DO 05 95F8:BB BB 00 00 BB F2 BO 04 
91F0:93 4C 06 94 20 09 94 20 93F8:50 06 DO 06 50 07 DO 07 






























91F8:F5 E6 86 F9 8A C5 OC BO 9400:4C 21 94 4C B9 94 4C 75 

9200:2F 20 F5 E6 E4 OC BO 28 9408:95 4C AB 94 A9 00 85 1C 

9208:E8 86 FA 8A C5 F9 90 20 9410:85 1D 85 18 A9 DO 85 19 

9210:20 F5 E6 86 FB A5 OB FO 9418:A6 09 BD 83 CO BD 83 CO Un collaborateur de 

9218:04 E4 OB BO 13 20 F5 E6 9420:60 A5 07 48 AS 08 48 AS Pom's vend : 

9220:86 FC A5 0B FO 04 E4 OB 9428:0C 85 CE A5 0B 85 CF DO 

9228:B0 06 E4 FB 90 02 BO 05 9430:02 C6 CF 20 68 92 AD 82 Macintosh 512Ko 

9230:A2 4D 4C 19 D4 20 OC 94 9438:C0 AO 00 B1 69 C9 41 DO étendu Ô 1,5 Méga 

9238:A2 00 E4 F9 90 O8 E4 FA 9440:19 C8 Bl 69 C9 80 D0 12 (carte Max) 

9240:90 0B AD 82 CO 60 E8 20 9448:C8 B1 69 85 1F C8 Bl 69 : à 

9248:5A 92 18 90 ED A4 FB A9 9450:85 1A C8 B1 69 85 1B 18 Lecteurs interne & 

9250:A0 91 18 C4 FC C8 90 F9 9458:90 05 A2 BO 4C 19 D4 20 externe 400K0, 

9258:B0 EC 18 A5 18 65 0B 85 9460:0C 94 AS 1C C5 07 FO OA ImageWriter 

9260:18 A5 OA 65 19 85 19 60 9468:B0 37 20 5A 92 E6 1C 18 MacPaint, MacWrife, 

eue. 09 94 20 F5 E6 86 07 9470:90 FO AO 00 B1 1A 09 80 LSD Compta. 
0:E4 CE BO 78 20 F5E6 86 9478:C9 CO BO OA 48 A5 32 C9 

9278:08 E4 CF BO 6F A9 00 85 9480:7F DO 15 68 09 40 25 32 En 

9280:1D 85 1C 85 18 A9 DO 85 9488:48 98 85 FF 18 65 08 A8 Domicile : 

9288:19 A6 09 BD 83 CO BD 83 9490:68 91 18 A4 FF 18 90 04 (lé) 97 8104 O9 

9290:C0 A9 DO 85 FD A9 93 85 9498:68 18 90 EA C8 C4 1F 90 

9298:FE 60 A5 1D 18 OA A8 B1 94A0:D3 68 85 08 68 85 07 AD 





92A0:FD 1A C8 B1l FD 85 1B 





94A8:82 






24 Pom ne 32 











DOS 3.3 
ProDOS 







e but de ce montage est 
de permettre à votre 
Apple favori de détecter 
ÿ la sonnerie du téléphone 
£ afin de provoquer 
l'exécution d'un logiciel (serveur, 
répondeur télématique, compteur 
d'appels, envoi ou réception de 
fichiers etc.). La présence de la 
sonnerie se traduit par la 
fermeture du bouton joystick n° 0 
c'est-à-dire GG. La sonnerie 
détectée, le programme 
d'application devra se charger de 
décrocher la ligne, connecter le 
modem ou autre. 


Principe 


Le courant de sonnerie est un 
signal alternatif à 100 Hz. Le 
condensateur 2,2 JF ‘filtre’ ce 
signal qui est réduit à une tension 
raisonnable par la résistance de 
390 £2. Le pont de diodes et le 
condensateur redresse le signal 
qui devient continu et active le 


2,2 UF 
100 V 


LI =——| 


> prise 
gigogne 


É2 
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relais. Ce dernier se comporte 
comme un bouton de joystick et 
est connecté avec une résistance 
comme indiqué dans les Manuels 
de Référence Apple. À noter que 
l'Apple est à l'abri des soucis 
puisqu'il est isolé du réseau 
téléphonique parle relais. 


Le programme 


Dans le programme, il suffit de 
tester l'octet (—-16287) : une 
valeur égale ou supérieur à 128 
indique que la sonnerie est en 
cours. En assembleur, le test du 
bit 7 donne l'indication : à 1 le 
téléphone sonne, à 0, il ne sonne 
pas. À noter qu'on peut simuler 
la sonnerie en pressant la touche 
G. 

On peut s'inspirer du programme 
DETECT qui attend un certain 
temps avant de signaler la 
sonnerie : celà évite la détection 
des tintements parasites tels celui 
dû au raccroché du combiné. 


350 


4x 
1 N 4004 





OYUTCTU 


Paul Courbis 


En pratique 


Le petit montage s'effectuera sans 
difficulté sur une plaque d'essai. 
L1 et L2 sont à relier à la prise 
gigogne standard intercalée entre 
la prise murale du téléphone et 
l'appareil téléphonique. Ces fils 
sont à connecter aux bommes 1 et 
3. Il ne faut pas oublier de relier 
les bornes des côtés mâle et 
femelle pour que l'appareil 
téléphonique fonctionne toujours. 
Côté Joystick, la numérotation de 
la prise correspond à celle de la 
DB 9 à l'arrière de l'ordinateur. 


G 








Programme 

DETECT 

10 ÀA$ = "Le téléphone ne 5 
onne pas 

20 B$ = "Le téléphone sonn 
e "” 

30 HOME 

40 PRINT : PRINT : PRINT 
: PRINT "Etat de la li 
gere :" 

50 FOR W = 1 TO 10: VTAB 
10: HTAB 1 


60 VTAB 10: HTAB 1 
FO TEMPEEK (ENT E267 








127 THEN NEXT : PRINT 
B$: GOTO 50 
80 PRINT AS:W = 1: GOTO 6 
0 
Vers 
Apple // 


Prise Joystick 





| 
| 
| 





Ds 
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objet d'Unimate, 
programme de Cirtech, 

g est d'utiliser les 
_ programmes DOS 3.3, 
Pascal ou CP/M sur les Unidisks 
3'5. Il permet de faire fonctionner 
sur un support plus plaisant et 
spacieux des applications 
allergiques à ProDOS ou 
difficilement transposables : voici 
un programme qui mériterait 
d'accompagner chaque lecteur 
800Ko.. 


Unimate est livré sur une 
disquette lisible en DOS 3.3, en 
Pascal et en CP/M. Il est 
compatible avec tous les Apple //. 
Depuis chacun des systèmes 


d'exploitation, les fichiers 
concernés sont copiables 
directement. 


Un démarrage sur la disquette 
Unimate donne accès à un mode 
d'emploi imprimable en anglais. 


Il est succinct car à part 
l'installation des drivers, 
l'utilisation est totalement 
transparente. 

La méthode retenue est 


l'installation d'une modification 
au DOS. Il convient de démarrer 
en DOS 3.3, puis d'exécuter le 
programme livré : le DOS en 
mémoire est alors modifié et il 
suffit d'initialiser des disquettes 
3'5 (ou 5'25) qui comporteront le 
nouveau DOS ; elles sont 
bootables. 


Chaque Unidisk 3'5 est reconnu 
en DOS 3.3 comme deux disques 
de 400Ko. Deux Unidisks en 
Slot 5 seraient reconnus comme 
étant : 


SS, D1 

S5,D2 

S5,D3 

S5, D4 
Seule précaution, pour initialiser 
le disque du deuxième lecteur, 
faire INIT HELLO, D3et non pas 
D2,sinon... 
Les deux faces s'initialisent alors 


simultanément et le #ELLO est 
installé en D3. 


: le numéro de 


Une limitation 
volume n'est plus vérifié sur 
l'Unidisk. 


Un FID adapté (nommé UNIFID) 
est également livré pour permettre 
les copies sur disques 3'5. 


Pascal 1.1, 1.2 


Les ‘drivers’ livrés perrnettent à 
Pascal 1.1 de reconnaître deux 
Unidisks comme étant les 
volumes 9 et 10 de 800Ko 
chacun. Pour la version 1.2, ce 
seront les volumes 19 et 20. 

Un nouveau FORMATTER livré 


autorise le formatage des disques 
H29 009 


CP/M 2.23, 2.20B 


Le driver nécessaire est installé 
par l'exécution d'un programme 
lors du démarrage. 


Pour CP/M 2.23, les Unidisk 





comporte 788K0. 


Un programme de formatage est 
également livré. 


Speedisk 


Grâce à Unimate, il est possible 
d'utiliser la carte Ram Speedisk 
sous DOS 3.3. La carte SP1000 
de 1 méga-octet se trouve alors 
reconnue comme les Unidisks : 
on dispose de deux lecteurs 
vinuels de 400 Ko sous DOS 
She 


Place faite au DOS et au catalogue 
(qui accueille 216 fichiers), il 
reste disponible 2 fois 376 832 
octets pour les fichiers sur la 


carte. Un “plus” pour les 
applications allergiques à 
ProDOS. 


Unimate est distribué par Alpha 
Systèmes, 29, bld Gambetra 
38000 Grenoble. 


seront les volumes C: et D:;E: 
et Fr: pour la version 2.20B. 
Chaque volume Unidisk 





Démarrer sur LU 


Effectivement, l'Apple //e ne considère pas que la carte contrôleur de 
l'Unidisk 800K0 est susceptible de le faire démarrer, même si cette carte 
est dans le port 6 et les lecteurs 140Ko en port 5. Pourtant, neuf fois sur 
dix, on souhaite utiliser le lecteur 35 ce qui conduit à un CTRL-RESET, 
suivi d'un PR£S au clavier : pas élégant. 


On peut laisser sur le lecteur 140Ko un programme Basic du style 
PRINT CHRS(4)"PR£S" mais c'est lent. La solution la plus rapide 
semble de mettre l'ordre PR£S sur le secteur O0 de la piste O de la 
disquette 5'1/4 : à l'aide d'un éditeur de secteur (Bag of Tricks, Copy 
I[+, Mobby Disk..….), mettre les octets suivants : 


01 convention 
A6 2B LDX $2B arrête le lecteur 5 1/4 
BD 88 CO LDA $C088,X 
4C 00 C5 JMP $C500 = PRES 
Le dernier octet est à remplacer par C4 pour un démarrage sur le port 4 


par exemple. Cette disquette de démarrage pourra alors rester à demeure 
dans le lecteur 140 Ko. 
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Sylvie Gallet 


CAT, commande 
externe ProDOS a 
pour objet de lister 
- tous les fichiers d'un 
volume, UE se trouvent au 
niveau O ou dans un énième 
sous-dossier. Il est écrit en 6502 
pour fonctionner sur tous Apple // 
sous ProDOS versions 1.1 et 
suivantes ; pour les versions 
antérieures de ProDOS, il faudra 
modifier le relogeur pour qu'il 
recherche lui-même la place en 
mémoire. 


Le source, abondamment com- 
menté, contient toutes les 
explications nécessaires à son 
utilisation maïs il reste quelques 
précisions à apporter. 





L'assembleur 
ORCA/M 


+ Le source occupe environ de 
50 % de la mémoire disponible 
(environ 36 Ko) il peut donc être 
saisi en une seule fois, confort 
non négligeable ; 


* si un commentaire est placé 
après une instruction, le point 
virgule n'est pas obligatoire ; 


° anop permet de ne pas écrire 
d'instruction après un label (anop 
ne génère pas de code: c'est 
l'équivalent de ‘: pour LISA) ; 


+ keep xcat : le code généré est 
sauvegardé automatiquement 
sous le nom 'xcat' (équivalent du 
DSK de ProCODE) ; 


+ £<et £> signifient respec- 
tivement partie basse et partie 
haute ; 


e ds n: réserve n octets en 
mémoire et les initialise à zéro ; 


dc 'il'nl,;n2,.…. 
les entiers nl, n2, 
sur un OCtet ; 


,np': définit 
;, np chacun 


- dc i2‘label' :l'entier label 
est stocké sur deux octets (bas, 
haut). Cette instruction permet de 
stocker l'adresse label ; 

- de c'chaîne!' : définit la 
chaîne de caractères ‘chaîne’ (bits 
se VC 

* les instructions implicites ASZ, 
LSR, ROR, ROZ doivent être 
suivies de A. 


Le fonctionnement 
de XCAT 


* On commence par vérifier si la 
commande est bien XCAT : sice 
n'est pas le cas, on en fait cadeau 


aux éventuelles autres 
commandes externes ; 
° si c'est pour nous : on 


demande à ProDOS d'analyser 
les paramètres qui peuvent être 
soit un nom de volume, soit un 
numéro de slot et/ou drive ; 


° si un nom de volume est 
demandé, on utilise ON LINE 
pour savoir dans quelle unité il se 
trouve. S'il existe, on met le 
numéro de l'unité dans la table 
des paramètres de READ 
BLOCK ; 


- siS ou Destutilisé, on calcule 
le numéro de l'unité et on termine 
comme ci-dessus ; 


+ on Hé nnloc 2 de l'ünité 
choisie, on vérifie qu'il s'agit 
bien d'un disque ProDOS ; dans 
l'affirmative, l'analyse peut 
commencer ; 


* celle-ci se fait très simplement 
en lisant l'un après l'autre les 
blocs de ce catalogue et en 
analysant les 13 entrées de 
chaque bloc. Un catalogue ou 
sous-catalogue est terminé quand 
le chaînage avant est égal à O0 00. 





Au cours de l'analyse d'un 
catalogue, si on trouve le nom 
d'un sous-catalogue, on sauve 3 
octets sur la pile : le numéro du 
bloc en cours et le numéro de 


l'enregistrement, on procède 
ensuite à l'analyse du 
sous-catalogue : quand celui-ci 
est terminé, on dépile les 3 octets 
sauvés et on reprend le catalogue 





Exemple d'exécution 


SXCAT /SPDK/ 


CATALOGUE IMPRIME LE : 9-SEP-87 


NOM TYPS BLOCS MODIFIE 
SPOK 
MERLIN 
LIB 
DEV 
SENDHSG.S TXT 1 27-AUC-87 
QUTPOT.S TXT 3 27-A06-87 
UTIL 
XREF BIN 5 27-AUG-87 
MON.65CO2 BIN 1 27-AU0G-87 
SOURCE 
PI.START.S TXT 8 27-AUC-87 
PI.WAIN.S TXT 7 27-AUG-8?7 
PI.100K.S TXT 3 27-AUG-87 
I 
START $Fre 9 27-AUG-87 
MAIN $rè 1 27-AUG-87 
too SF8 1 27-AUG-87 
DIV Sr 1 27-A06-87 
MERLIN. SYSTEM SYs 37 27-AUG-87 
PARMS BIN 1 27-A06-87 
Pa.s TXT 1 27-AU6-87 
PA BIN 1 27-AUG-87 
Y 
PAOC TXT 1 27-AUG-87 
cPi3 TXT 1 27-AUG-87 
GE20 TXT 1 27-AUG-87 
“AB10 TXT 1 27-AUG-87 
ci708 FAT 3 27-AUG-87 
PRODOS SYs 32 31-AUG-897 
RSBOOT SYs 4 27-AUG-97 
FILER sr 52 31-AUG-87 
ARUPTUS BIN 3 31-A06-87 
STARTUP BAS 1 9-SEP-27 
INTERPOMS.V 2 BIN 17 7-SEP-87 
COPIERAN rar 11 31-AUG-87 
T. PONS BIN 9 31-A0G-87 
XCAT BIN 5 9-SEP-87 
BASIC.SYSTEMN SYs 21 S31-AU6-87 
CLV.POMS BIN 10 9-SEP-87 


BL LIBRES ; 615 OCCUPSS : 1433 TOTAL : 2048 


$ 
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précédent là où on l'avait laissé. 


L'utilisation de la pile permet une 
sauvegarde très simple des 
valeurs indispensables à la reprise 
d'un catalogue sans perte de place 
dans le programme et avec un 
contrôle très simple de la 
profondeur : le pointeur de pile 
étant sauvegardé au début, il 
suffit à la fin d'un sous-catalogue 
de comparer le pointeur actuel et 
le premier pour savoir si tout a été 
dépilé et si on est dans le 
catalogue principal. 


Remarque sur la page zéro 


La plupart des adresses libres en 
page zéro sont utilisées. Si on 
souhaite préserver le contenu de 
ces adresses, il est possible de 
sauver la page zéro dans le buffer 
de ProDOS (la moitié supérieure 
de ce buffer n'est pas utilisée par 
READ BLOCK). 


Structure des 
catalogues et de la 
bitmap 


Le catalogue principal comporte 4 
blocs : n%2, 34 ets Chaque 
bloc est chaîné au précédent et au 
suivant. 


Les sous-catalogues comportent 
au minimum 1 bloc auquel 
peuvent être chaînés d'autres 
blocs si le nombre de fichiers est 
supérieur à 13. 


Chaque bloc comporte : 


octets $0 et $1 : 2 octets indiquant 
le n° du bloc qui le précède 
(c'est le chaînage arrière): 
contiennent O0 O0 si ce bloc est 
le premier ; 


octets $2 et $3 : numéro du bloc 
suivant (chaînage avant) : 00 
00 si ce blocest le dernier ; 


la suite du bloc est partagée en 
13 entrées de fichier de $27 
octets chacune ; 


il reste 1 octet inutilisé. 


La première entrée du bloc 2 ainsi 
que la première entrée de chaque 
premier bloc de sous-catalogue 
contiennent des informations 
relatives à la disquette ou au 
sous-catalogue et sont légèrement 


différentes des entrées de 
fichiers. 


Bloc 2 Ilère entrée 

(octets $4 à $2A). Elle contient 

l'en-tête du catalogue principal. 

XCAT utilise les octets suivants : 

$4 

- type de fichier (4 lers bits) : 
$0 fichier effacé ou inexistant 
ou effacé, 


@ 
RP 
Mode d'emploi 


Si vous n'avez pas la disquette 
d'accompagnement Ponts, il vous 
faut saisir et sauvegarder le code 
XCAT. 
La commande externe est disponible 
après avoir tapé en mode direct: 

— XCAT 
OU, par prog'amme : 

PRINT CHR$S(4)"-XCAT". 


Pour obtenir le catalogue étenau, 
taper simplement : 
XCAT /nom de volume/ OÙ 
“NEAT, Ss,,Dd 
s & d étant le numéro de port et de 
lecteur. 
Le listing peut être suspendu et 
repris à l'aide de la barre d'espace ; 
il est stoppé par CTRL-C. 





@ 
RS 


$D fichier sous-catalogue, 
$E en-tête sous-catalogue, 
$F en-tête catalogue. 

° longueur du nom de Ja 
disquette (4 derniers bits d'où 
la limitation à 15 caractères) ; 

$5 à $13. 
nom de la disquette ; 

$27 et $28 
numéro de bloc de la bitmap ; 

$29 et $2A 
nombre maximum de blocs du 
support. 








ler bloc de sous- 
catalogue, ère entrée 


On utilise seulement les octets $4 
à $13 (comme ci-dessus). 


Entrées de fichiers 


(Les numéros d'octets sont 
donnés par rapport au début de 
l'enregistrement). Les octets 
utilisés sont les suivants : 
$0 

type de fichier, longueur du 


nom (voir ci-dessus) ; 
$1 à $F 


type de fichier (BAS, BIN, 
IDC EE)E 
$11 et $12 
numéro du ler bloc du fichier ; 
$13 et $14 
nombre de blocs occupés par le 
fichier ; 
$21 et $22 
date de dernière modification 
du fichier (à lire à l'envers 
$22,#5211). 


La bitmap 


Elle occupe généralement le bloc 
6. Chaque octet renseigne sur 
l'occupation de 8 blocs : un bit 
est à 1 si le bloc est libre et à O si 
le bloc est occupé. 
Sur une disquette 140 Ko il y a 
donc 35 octets utilisés (280/8) et 
200 octets pour une disquette 800 
Ko (1600/8). 

@ 


+ 


Bibliographie 
Organisation d'une disquette 


ProDOS : 


+ Guide ProDOS P. Beaufils W. 
Luther, Editions Sybex 

* Beneath Apple ProDOsS, 
Quality Software 


Relogeur, commande externe : 
+ numéros antérieurs de Pom's. 


G 











+ Relogeur tré nblable à celui de ‘S n° e 
RU ; rene Sie Pen PL “ee ts sn 


+: Il se charge d'{nsteller la commande externe entre ProDOS 
: et ses buffers. 























{ Commande externe XCAT perœsttant de lister le catalogue +: Geëbufr n'écanc disponible qu'avec les versians Pro00S 1.1 
: at les sous-cetalogues d'une disquette Fro00S d : et suivantes. une petite æodification sera nécessaire pour 
; + les versions antérieures. 
; © Sylvie GALLET pour POM'S Juillet 1987 
: : initialisscion ProDOS 
: Assembleur ORCA/M É 
init lda ali 
list on cap £S4C est-ce un JM ? 
err on beq initi oui 
s5816 off 1dy nonactif non -> affiche message et fin 
65Cc02 off nabcl Ida nonactif,y 
ébsaddr on jsr outdo 
keep /2/XCAT dey 
be nabcl 
org $2000 rts 
main START initi 1da openent y a-t-11 des fichiers ouverts ? 
beq init2 non 
+ EQUATES: lda £5$15 oui -> impossible placer la commande 
‘ 4 message FiL£E(S5) STILL OPEN 
jmp errout 
: adresses en page #éro: 
Jo mm atatt - init2 1da extrnemd+2 Sauve adresse de la première 
himem gequ $73 sta precad»2 commande exte£ne 
length  gequ S2F longueur de l'instruction Ida extrnemd+i 
pci gequ S$3A èdresse de la ligne désassemblée sta precndri 
al gequ $iC adresse de départ pour move ida £>long demande d'un buffer de (A) pages 
a2 gegu 536 adresse de fin e e Jsr getbufr 
a4 gequ 542 adresse d'arrivée " es cp £50C erreur ? 
bne gothen non 
nbloc gequ $6 nombre sur 2 octets (bas,haut} fep errout oui -> affiche ‘NO BUFFERS AVAILABEE" 
temp gequ 58 : et fin 
longueur gequ $SiA longueur de nom de volume 
debsscat gequ SiB indicateur de soul{gneæent gotheñn sta adresse n° dé là l1-ère page accordée par 
compteur gaqu $iC coæpteur d'enregistrements dans cat. sta 24+1 Pro00S 
increa  gequ $iD décsiage de début de ligne sta extrnomdr2 
piie gequ $Is sauvegarde du pointeur de Dile ida £>debut 
htab gequ Sir position horizantale du curseur sta 2141 
certe80c gequ SE3 flag : certe 80 col active (pour éviter ide £<fin-1 
: de lui envoyer un form-feed sta 22 
bitmap gequ $E8 nubéro de bioc de la bitmap (bas, haut) ida £>fin-1 
blocaax gequ $ED nbre max. de blocs du support (bas, haut) sta a2+1 
lignes  gequ $£F noabre de lignes affichées 1dy £0 
aa gequ $F9 année aty 4 les adresses de départ et d’arrivéé 
am gequ $FA æis sty a1 sont alignées -> poids faible = 0 
sb gequ $Fa Jour sty extrnomd+#i 
adr gequ $FC adresse temporaire jsr move déplace le programme 
ptr gequ $FE g ” Jsr reloge 
rts 
: sous-programmes moniteur et adresses système: 
À Dr GP EL ON TON GARDES Le PES REPCET # reloge  lda adrease adresse de relogement 
é sta pcilri À 
1inprint gequ $SED24 affiche en décimal le contenu de AÀ,Xx da £0 ” 
insdsp2 gequ $F88C désassemble la ligne (pcl} sta pcl = 
move gaqu SFEZC conme son nom l'indique rdecode ldx £0 nécessaire pour insdsp2 
prbyte gequ $FODA affiche (AJ en 2 chiffres hexa ide (PCl,x) 
kbd gequ $C000 lecture directe clavier beq rfin si 00 séparant programme et données 
kbstrobe gequ $C010 {nitialisstion clavier 4sr insdsp2 
idy length Y = longueur instruction -— 1 
cpy £2 instruction sur 3 octets ? 
bne rsufvant non -> pas de changement 
3 ida (pcll.y oui 
typrum  gequ $5989 codes des types de fichier aYant une cup £rall est-ce un appel au MLT ? 
‘ abréviation bne nomli non 
typtable gequ $8997 table des abréviations dey peut-etre... 
zois gequ $83C! table des roms des mois lds (pell,y 
ali gequ $8F00 point d'entrée de ProDQs cap £<mli 
extrncd gequ $8E06 saut vers commande externe bne nosil non 
errout  gequ $æ0? affiche erreur et fin dy 
badcail gequ $8£88 convertit code erreur MLI en BASIC.S 1ds (pcll,y 
getbufr gequ $8EFs réserve (A) pages sous BASIC SYSTEM cæp €320 est-ce un jsr ? 
xtrnaddr gequ $8ES50 adresse cosmande externe Reno non 
xlen gequ SBES2 longueur de fè camande 1da pel oui -> avance pcl de 3 octets et 
xenus gequ S8853 n° de la comende cle traite {es 3 octets suivant jsr $BF00 
pbits gequ $BE54 parasètres autorisés ade £3 commé une instruction à reloger 
fbits gequ $8E56 paramètres effectivement trouvés e { l'adresse du buffer n'a pas besoin 
vpath1 gequ SBE6C vecteur vers la Camsnde entrée 3 d'etre relogée j 
sysecr gequ $8F0F sta pcl 
xreturn geQu $S8E9E un RTS qui gagne à etre connu bec nazi 
vsiot gequ 58661 n° slot trouvé inc pcl+1 
vdriv gegu $BE62 " drive ” nomii 1da pci passage de paramètres pour calcul 
openent gequ $8E4D nombre fichiers ouverts sta adr 
vpath2 gequ $BE6E 2-ème nom de fichier ida pel+i 
devent gequ S8F31 nombre de lecteurs sta adrti 
output  gequ $S8£E31 octet haut adresse du périph de sortie Idy length 
datesys gequ S8F90 date courante jsr calcul 
à rsuivant lda length on passe à l'instruction suivante: 
long gequ fin-debut+S100 longueur du programme à reloger sec avec pcl = pol + length 
ade pci 
rm nie co conte een serve - ec sl EU HN sta pcl 
: relogeur lda pcl+l 
JR DR On 00 it ie 00 PE 00 0 00 ed ENT 00 0 Qu DD SO ER ade £0 
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sta pcisi 
sec distance (pci) - adresse stockée dans 
sbc adrässe A (MSB) et X (LSB) 
1dx pci 
jsr test distance >= longueur du grograsxe ? 
cs rfin oui -> on a fini 
Jap rdeccde non 
rfin rts 
test cæp £>fin-debut À < nbre de pages du proGramre ? 
bec oui oui 
bne non non et À > nbre de piges -> en dehors 


du progranpe 
en est dans la dernière paze: 
X < poids faible de fin ? 


cpx £<fin-debut 


becs non non -> en dehors du p-ogramme 
oui elec dans les limites 

rts 
non sec 

rts 


caicui deÿ 


idà (adr},y partie basse de l'opérande 


Eax 

lay 

idà (adr),y partie haute de l'opérande 

sec 

sbc £>debut écart {en Pages) entre adresse et début 

bce none écart < 0 -> opérande en dehors des 
adresses à medifier 

Jjsr test écart >= 0 -> écart > longueur du 


Programme ? 
Ècs nonc non 
adc adresse oui -> on reloge 
sta (adr}),ÿ 


cie 
rts 
nonc sec 
rts 
adresse ds 1 adresse de début du programme relogé 


NE SR 4  “ 


. 


ds $FF-(adresse-init} debut sera égale à $2100 





A propos de XCAT 


fonction de XCAT: 





catalogue étendu de tout support ProDOS, disponible en mode 
direct ou différé. 

- les noms de teus les fichiers sont affichés avec une indentation 
mettant en évidence les scus-cataloques. 

- 1i n'y a Pas de limitation du nombre de niveaux d'emboitement 
des sous-catalogues (sauf le bon sens), l'indentation est 
seulement limitée à 24 caractères. 

- Les nons de catalogues sent soulign 

- Les autres fichiers sont suivis du type, du nombre de blocs 

et de la date de derniére modification. 

- le nombre de blocs libres, occupés, total est affiché meme 

si xcat est interrompu avent la fin. 
- 13 date courante ast affichée en tete du catalogue. 


installation: 





‘brun xcat' ou ‘’-xcat° 


utilisation: 


sÿntaxe: en aode direct: xcat /ncævolume/ , Ss ; 9d 
en sode différé: print chr$(4)"xeat" suiv i éventuellement 
de paramètres (constantes ou variables 
chaine). 


les paramétres sont optionnels : si on les omet, le lecteur 
par défaut sera utilisé. 


la présence de paramètres mese S et D ne modifie fas le prefixe 
Par défaut. 


Arrat temporaire et reprise du défilement avec une touche 
quelconque. 


arret définitif par CTRL-C: dans ce cas. on affiche 
pour signaler qu'il reste peut-etre des fichiers. 


la sortie se fait sur le périphérique en service ( écran 40 
ou 60 colonnes ou {imprimante j, elle est évidemment pius 
Claire en 80 celonnes. A l'imprimante, un saut de page est 
envoyé toutes les 60 iignes environ. 


es d'erreur possibies : 


mess 





FlLE(S) STILL OPEN : pour Înstailer XCAT, tous les fichiers 





doivent etre fenmés. 


: 1/0 ERROR : erreur de lecture dfsque { bloc 

: endemmagé, lecteur ouvert, disque non 
: ProD0S.-.]. 

: SYNTAX ERROR : erreurs diverses dent un nom de voiusre 
# incorrect ( trop ou pas assez de /, 

; ncn de la forme / ou // , ñom contenant 
: des caractères non autorisés J. 

+ PATH NOŸ FOUNO : le voluse n'est pas en ligne. 

: RANGÉE ERROR : valeur en dehors des limites autorisées, 
; INVALID PARAMSTER : si on utilise d’autres parazètres que 
;: slot ou drive. 


+ PROGRAM TOO LARGE : Peu probable. 
+ NO BUFFER AVAILASLE: " Ed 
+ PFACDOS RON ACTIF FE Le ad 


? programme 4 reloger 


PR 


debut cid nécessaire... pour faire relier Yvan Koenig !! 
ida vpath1 vpathi pointe sur 13 commande 
sta ptr entrée 
ida vpathi+i 
sta ptr+1 
dy £1 


compar dde (Ptr}.y 
cup command-1, y 
bne nocmd 


compare la commande entrée et 'xcat' 
ce n'est pas pour nous 
commande ’xcat': 4 caractères 


cpy £évi 
Dec cmpPer 


dey D TA) 

sty xlen 

ida £0 

stà syserr 

sta xcnun 

lda £400070000 

sta pbits 

Ida £+00900100 

sta pdits+] 
versuite ida xsuite 

ida versuite+]i 

sCa xtrnaddr 

ida versuite+? 

sta xtrnaddr+1 


n° commande externe 
nom de Fichier autorisé 


siot et drive autorisés 


utile au relogeu: seulement 
adresse à laquelle P-0008S devra 
nous rappeler après analyse 
des pararètres 


cic retour à ProODS sans erreur Pour 
rts énalyse des parsmètres 
nocad sec utile si notre cemmande est 13 setle 
; ou ls dernière pour signaler l'erreur 
Jap xreturn saut à la commande externe 


precmd 
: précédente 


code de "SYNTAX ERROR’ 
affiche le message 


syntaxer ds £$10 
jp errout 


; passons aux choses sérieuses... 


xsuite ldx £0 


Iidà output 
cmp £L$C3 carte 80 coionnes active ? 
bne no8üc non 
dex Qui -> Carftef0C = £$FF 
ne80c stx carte80c 
dy £0 
ida fbits un nom de volume demandé { fbits <> 0 ) 
beq pas vol non 


oui (ptr) est toujours égal à fwpathl} 
longueur du nom 

elle va servir 

longueur < 3 ? 

oui -> erreur [le nom doit contenir 
au mfnlnum 2 / et un caractère } 


ida {Ptri,y 
sta longueur 
cop £3 

bec syÿntaxer 


ta 
ida (ptr},y lit le dernier carsctère 
cap £$2F AGE 
bne syntaxer non 
ldy £i oui -> 1it le I1-er caractère 
ida tptr),y 
cap £S2F A 
bre sÿntaxer fan 
chslash ny oui -> on cherche un ‘/' intermédiaire 
cpy longueur 
becs nomok 
Ida (ptr),y 
cap £S2F BRU 
beq syntaxer oui -> erreur 
cap £$2E REP 
bne cs? non 
csl cpy £2 oui -> en premier caractère ? 
beq syÿntaxer OUi ; erreur 
bns chslash non : autorisé 
cse cmp £$30 CAE 
ce sYntaxer non 
cmp £$3A € 9" { $3A + code de 'r" } 
bce cs1 oui ->svérifier si Pas en 1-ère positicn 
cp £541 < ‘A 
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bcce syntaxer out and £57F méme 3i le CTRL-C date ur] peu ( ciavier 
cmp £$S5E = 2" 4 558 = code de ‘°' } cp £3 remis en attente avec kbstrobe 
becs syntaxer bne contince non 
bcc chsilasit Jjmp ctric oui -> on écrit la dernière ligne 
nomok jsr nomvol continue ldy compteur 
jmp go Ida lowb,y adresse relative de l'enregistrement 
pasvoi lda fbitssl a-t-on four."i un Paramètre s ou d ? clc 
bne calcunéit oui adce hine“ calcul adresse absolue de l'enreg. 
Ida S8F9A contient 0 si pas de prefix sté litbuf+l 
beG dernier -> dernier lecteur utilisé dida highb.y 
jsr mil adc himem+1 
dc 11'$C7 code de GET PREFIX sta litbuf+2 
dc i2'prefparm" 1dy £0 
fsr mii jsr litbuf iit le 1-er octet de l'enregistrement 
de i1'$C6! code de SET PREEIX ‘ qui contient le type de sauvegarde 
de {2‘prefpar:a’ ‘: du fichier et la longueur du nom: 
bec dernier pas d'erreur ? : octet de la forme tttt 1111 
1dx pile hélas, sf ! beg suivant $0 si fichier inexistant ou détruit 
txs and £SF0 -> A = tttt 0000 
jsr badcall cap {5D0 est-ce un sous-cétalogue ? 
Jnp errout bne autras branche si atitre que sous-catalogue 
dernier Ida devent-1 non -> on prend ia dernière unité accédée Ida compteur c'est un nom de sous-catalogque 
: {sen numéro est en S8F30) pha -> on sauve le compteur et le 
bne stunit roujours 1da bloclu=1 numéro du bloc 
carcunit 1da vdriv contient 000 00DD avec 00-01 fdrive 1) pha 
? ou 0D=10 (drive 2) Ida bloclu 
and £502 -> À = 0000 0000 avec De«0 fdrive 1} pha 
F ou D=1 fdrive 2} lda £$FF 11 faudra souligner 
asl à sta debsscat 
asi a -> À = 0000 DO00 idy ES1i pour iire le n° du i-er bloc du 
ora vsiot vslot contient 0000 0$S5$ mp nouvbioc Sous-cataloque 
+ -> À = 0000 OSSS autres jsr espaces au retour, (Y) - © 
asi à jsr litbur 
LUE and £SOF -> À = 0000 1111 
351 à sta longueur 
asl a -> À = DS$S 0000 tax 
stunit sta unite iny (Y) = 1 : début du nom 
affbcil jsr litbuf 
scette fois, c'est vraiment parti jsr outdo 
{ny 
go tsx la plie va servir de rone de dex 
stx pile stockage...sauvons le pointeur bne affbcil 
Ida £0 lectvre du blac 00 02 bit debsscat non de Cet ou sous-cat ? 
sta increm bmi aleligrie oui 
sta blociu#i jsr iafos non 
sta compteur aialigne jsr crdo 
stà buffer bit debsscat on souligne ? 
sta debascat bpl suivant non 
dec debsscat -> debascat = $FF , on devra {nc debascat -> debsscat - 0 
; souligner le 1-er nom de fichier Jsr espaces oui 
ë qui est celui de la disquette ldx longueur 
Ida hinen:1 himem contient l‘adresse du buffer Ida £$520 trait de soulignement 
sta buffer+i brouillon de ProDOS affbc12 jsr outdo 
ida £2 toujours pour le bloc 2 dex 
sta lignes bne affbc12 
sta blociu jsr erdo 
jsr litbloc ine increw 
1da devent-1 nuvéro du dernier lecteur accédé inc increm - 
cmp £580 est-ce le ram disk 64k 7? (s3, d2) suivant inc compteur enregistrement suivant 
beg prodos si ouf, inutile de vérifier les 3 premiers Ida compteur 
: octets du bloc 2 cmp £50D déjà 13 fichiers affichés ? 
ldy £0 on iit les 3 Bremiers octets de ce bloc beg biocfini oui 
Ida (himen),y si <> 00 00 03 -> ce n'est pas un jap analyseb non 
iny disque Pro00S ( les 2 premiers blocfini Ida buffer on va lire les 2 octets de 
ora (himea),y correspondent au chafnage ârrière: sta 1itbuf#1 chainage avart (octets numéros 
bre noprodos nuis puisque ce bloc ast le premier, ida buffersi 52 et $3 du bioc] : C'est le 
{ny le 03 normalement suivi de 00 sta 1litbuf+2 nuaéro du bioc suivant 
ida (hinem),y correspond au chainage avant: bioc Ildÿ £2 
cmp £3 suivant du cataioque } nouvbloc jsr litbuf 
beg prodos sta blociu 
noprodos ]da £5 -> "1/0 ERROR' 1e 
Jnp errout Jsr litbur 
prodos ldy £$27 sauve le n° de bioc de 13 bitmap sta bloclu+1 
ida (himen),y (octets 527 et $28 du bloc 2]: ii vaut ora bloeiu si 00 00 -> le dernier bloc vient 
: presque toujours 00 06 sauf pour /ram: 00 03 beg catfini d'etre lu 
sta bitmap Ada €0 
iny stà compteur 
lda fhimen],y Jmp blocsuis 
sta bitmap+1 catfini tsx pointeur de pile égal & sa valeur de 
ing Ccpx pile début ? { <=> a=-t-on tout depilé ?] 
Ida fhimem),y nombre maxi de blocs du support beg termine oui -> catalogue principal termiré 
sta biocmix {octets $29 et $2A du bloc 2) pla non -> on récupère le n° de bloc et 
inÿ sta blociu le compteur précédents 
1da (hiaea},y pla 
sta blocmaxt1 : sça bioclu#i 
jsr crdo pla 
fsr datecat sta compteur 
jsr crdo on va imprimer la ligne "NOM..BLOCS..,." dec incren 
jsr crdo dec increm 
1dy titres jsr litbloc on relit le bloc précédent 
titrebc? Ida titres,ÿ jm? suivant 
jsr outdo ctric dx 15 en cas de CTRL-C on imprime ".....! 
de, Ida (32€ ,, 
bne titrebc] asuivre jsr outdo 
fintitre jsr crdo dex r 
jsr crdo bne asuivre 
Jmp analyseb inutile de relire le bloc 2 dx pile on laisse las lieux Comme cn 
blocsuiv jsr litbloc txs les s trouvés 
analyseb 1da kbd arret avec CTRL-C ? termine jsr crdo 
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jsr crdo 
bitmap 
bloclu 
da bitmapfl 
bloclufl 
jsr litbloc 
himem 
litbuf+] 
dda himem+l 
litbuf+2 
Ida £0 
nbloc 





nbloc+i 
Jsr Jithitmp 
inc Jitbuf+2 
{sr iithitap 
libres 
libres,y 
outäo 


ti Ida 


bne t1 
inpradr 
biocmax 


sbc nbloc 

nblioc 

blocraxt1 

sbc nblocti 

nbiloc+i 
Id} occupes 

t2 lda occupes,y 
jer outdo 


bre t2 

jsr impradr 

blocaax 

sta nbloc 

blocnax+l 

nbloc+i 

total 

t3 lda total,y 
jsr outdo 


bne t3 

Jjsr impradr 
jsr crdo 
kbstrobe 


‘ 
Cd 





litbuf 1lda $8000,ÿ 


rts 


SOUS PROGRAMMES 








{1 ne reste qu'à afficher la 1igne 
“blocs libres..." 


lit la bitmap 


on va explorer 512 octets du buffer 


nbloc,nbloc+1 contiendra le nombre 
de blces libres 


on va lire la 1-ère moitié de la bitmap 
2-ème moitié 


mention "blocs libres: ” 


imprime nombre de blocs libres 
calcule blocs occupés... 


mention "occupés: ” 


mention "total blocs: 


imprime total blocs 


pour ProPQOS : pas d'erreur 





lecture d'ue enregistrement du bloc lu 


adresse non significative. modifiée 


selon les besoins 


; imprime les espaces de début de ligne 








ldy incren 
esprts 
cpy incnax 
bec espacbis 


espaces 


ldy incmax 
espacbis 1da £$520 
espbci  fsr outdo 

dey 

bne espbcl 
esprts rts 


: imprime un retour chariot 
lignes 
da lignes 
cap £$32 
bce memepage 
bit carte80c 
bmi noformf 
bit debsscat 
bai memepage 
lda £$0c 
jsr outdo 
ida £0 
sta lignes 
memepage 1da Ê$EFF 

sta htab 

Ida 1$8D 

fsr outdo 

rts 


ne 





nofommf 
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y < incmax ? 
oui 
non -> y = incmax pour limiter le 


décalage à une valeur raisonnable 


déjà 60 lignes affichées ? 


non 
oui -> 80 col active ? 

oui 

non => nom de ss-cat ? 


oui 
non -> saut de page 


imprime le caractère (A) ou un espace et incrémente htab 


outspace lda f£$A0 


outdo pha 
lda 
bp1i out 

hit kbstrobe 
cap £$83 
beg out 

bit kbd 

bp1 attends 
bit kbstrabe 
pla 

fsr S08sc 
inc htab 

rts 


une touche erfoncée ? 

non 

oui 

ctrli-c ? 

oui 

non -> attend une nouvelle touche 


kbd 


attends 


out 


: imprime le type, le nombre de blocs et la date 


le type commence en colonne 41 


$28 = 40 


jsr type 
jsT blocs 
jsr date 
rts 


: analyse 256 octets de la bitmap 


litbitmp ida £50 

tay 

Jsr 1itbuf 
beq bapt 
sta temp 
ldx £8 

ida nbloc 
Asr temp 
edc £0 

bcc bmp3 
inc nbloc+i 
dex 
bre 
sta 
inf 
bne 
rts 


brp1 
octet = 00 -> on passe au suivant 


8 bits à ajouter 


le bit b0 tombe dance c... 
-.. ét est ajouté ä À 


bmp2 


bit suivant ? 
oui 
non 


bmp3 
bap2 

nbloc 
bmp4 


bmpl octet sufvant 


, lit et affiche le nombre de blocs occupés par le fichier 





jsr outspace 
ldy £$13 
jsr litbpuf 


$13 et $14 de l'enregistrement 
sta nbioc 
iny 
jsr 
sta 


litbuf 
nbloc+l 


suivi {mmédiatement par impradr 


imprime un décimal de 5 chiffres maxi cadré à droite 


: ce nombre est contenu dans 1bloc et nbloc+1 


; si le décimal est: 


; inférieur à 10 -> 3 espaces 10 = 5 00 OA 


‘ compris entre 10 et 100 -> 2 a 100 = $ 00 64 
: compris entre 100 et 1000 -> 1 y) 1000 = $ 03 £8 
: supérieur à 1000 -> 0 . 


: + 1 espace Pour le séparer de ce Qui précède 


inpradr ldy £0 
Îda nbloc+1 


Cp £3 nambre < $03 00 ? 
bcc b1 oui 
bre impbloc nombre >= $04 00 
lda nbloc nen 
cup £$ES nombre supérieur à $03 E8 ? 
bes {mpbloc oui ( >= 1000 } 
bec ilsp ncn ( < 1000 }) 
bi Id: nblocs#l 
bne ilsp nombre supérieur à 256 
lda nbloc 
cmp LS64 supérieur à 100 ? 
bcs ilsp oui 
cmp £S$0A nen -> supérieur à 10 ? 
becs i2sp oui 
{ny non 
i2sp iny 
ilsp inyÿ 
Jmebloc iny 
jsr espachis 
1dz nbloc+i 


1dx nbloc 


nombre de blocs du fichier dans les octets 














jsr linprint jsr outspace -> un espace 
jsr outspace pla 
rts datel jsr imprdste imprime le jour 
ida £$2D code de "-" 
: imprime le type du fichier: jsr oùtdo 
EU = Îda rm calcul adresse relative du l-er 
: soit par son abréviation asi à ceractère du mois: mn * 3 
‘ soit sous la forme $xx adc en 
tay 
: besuooup de types possèdent une abréviation qui dépend idx £$53 3 caractères 
;: du logicifel utilisant les fichlers. La liste des codes ms Ida mois-3.y table des noms des mois de ProDOS 
; est stockée & l'envers à partir de $B989 et est suivie isr outda 
: de la liste des codes. iny 
dex 
type jsr outspace bne ms 
idy £$10 le type de fichier est dans 1da £$20 …. 
jsr litbuf l'octet $10 jsr outda 
1dx £$0D l4abrévistions différentes lda aa imprime l'année 
ldÿ £0 jsr imprdate 
typekc1 cmp typrum.x (A) = code lu ? rts 
beg afftype oué sansdate ldx £$24 début du message "(NO DATE)" 
ing non affsd Ida mois,x 
ins jsr outda 
iny inx 
dex au suivant ? cpx £$2D 
bpl typebcl oui bcc affsd 
tax non f A contient aussi le type } rts 
ida £$24 code de "$* 
jsr outdo dmprdate tax imprime le contenu de À ({MSB) 
txa Ida £$0 et x (LSB) en décimal 
jsr prbyte imprime le type en 2 chiffres hexa jsr linprint ‘ 
jsr outspace rts 
rts 
afftype lux £3 3 caractères à imprimer +: lecture d'un blec 
afftbci Ida typtsble.y Y contient déjà l'offset du type j mmcmmmmmmmmmmr 
jsr outdo à afficher 
iny litbioe jsr mli 
dex do il'$60* code de READO BIOCX 
bne afftbcl dc i2‘readparèms' adresse table des paranètres 
jsr outspace bec okl c = 0 -> pes d'erreur 
its idx plle sortie en catastrophe 
txs 
; imprime la date d'impression du catalogue : jsr badcall traitement erreur 
DU Dinant eermseees mrermrmst, emmmm———…— om jsr errout 
oxl rts 
datecat jsr mli demande à ProDOS$ de lire la date, elle 
; sera stockée dans datesÿs, datesyssl : recherche des volumes en ligne 
de il'$82’ code de GET TIME En ntsttetenntes 
de i2'0" uniquement pour faire joli !!!1 


On passe en resie les lecteurs en ligne dans l’ordre 


GET TIME n'utilise pas de paramètre 
croissant des slots et drives ‘fusqu'à ce que l'on 


mais une adresse est nécessaire aprés 


le code de l'appel + ait trouvé le volume cherché. 
da fédatesys-$21 le routine date utilise Y=$21 et Y="22 
sta litbuf+1 nomvol dec longueur longueur du nom sans des 2 / 
Ida £>datesÿs-$21 dec longueur 
sta litbuf+2 Ida himeèm le meme buffer recevra le nom 
ldy msgdate sta bufferoi de chaque volume trouvé par 
sta litbuf+l ON LINE 


affmsg 1lda msgdate,Y 
1da himem+1 














jsr outda 
dey sta bufferoifl 
bne affmsg sta litbuf+2 
inc ptr avance ptr d'un Cran pour sauter 
; suivi immédiatement de date Prepncmeoll #3 ER? 
: affichage de ia date de aodification du fich{er Hoavolt ch ES nombre d'Unités connectées 
; onlinebcl ida devent+i,x le nombre trouvé est de la forme: 
: and £SFO dsss tttt où ttte désigne le 
Le Fa re stockée dans les ectets $S21 et $22 de : type de support {disque souple, dur 
‘ anréJistrement avec le format : F rar...) -> on élimine tttt 
: octet $22  octet $21 SF vunisel 
; aaaa aaan mi {3j jsr ali 
dcr+2760C'91 code de ON LINE 
date jsr outspace dc i2'onlineparams' table des Paramètres 
idy £$22 bcs unitsuiv erreur quelconque -> au suivant 
jsr litbuf idy £0 
beg sansdate Jsr litbuf lit le 1-er octet du buffer qui 
cp £$C8 octet $22 >= £$S C8 7? { <-> année >= 100) sta tesnp contient: dsss 1111 où 1111 est 
becs sansdate and £$0F la longueur du nom du volume 
1sr à C = bit b0: fait partie du mois cmp longueur 2 longueurs égales ? 
sta 3a bne unitsuiv non 
deÿ tay oui -> Y = longueur 
jsr litbuf lecture octet $21 comprnom sr litbuf compare les homs de volumes 
beG sansdate Emp (ptr).y demandé et lu par ON LINE 
sta jj bre uaitsuiv ils sont différents 
Tor à on fait entrer la retenue ä gauche deÿ 
isr a et on garde b7..b4 Par décalaÿges bne cormpnonm fini 7 non 
isr a 1da temp oui 
isr a and £$F0 A - dsss 0000 
sr 3 sta unite 
cmp £50D meis > 12 ? cts mission accemplie 
DCS sansdate oui -> sans date unitsuiv dex unité suivante ? 
sta mm bp1 onlinebc1 oui 
ida jj Ida £6 non -> on n'a rien trouvé: 
and E$IF jour = b4..b0 Ü code de ‘PATH NOT FOUND" 
cmp £$20 jour >= 32 ? imp errout insulte 
becs sansdate oui -> sans date 
cap £$0A non -> jour < 10 ? Pere mmmnmmmmmmmmememes 
bcs datel non : bulle nécessaire au relogeur 
pha oui ; 

















Pons 1482 ce 
22 








rien ds 1 1lowb de i1'"$04,5$2B,$52,579,$A0, $C7, SES" 


dc il'$1s,$3C,563,S34, 581, 508" 














tables et textes highb dc il’0,0,0,0,0,0,0* 
; mm mm mm dore ,2,14,1" 
; paramètres de READ BLOCKS : ligne de titres du catalogue 
readparamé anop titres de il1‘124" 
de 11:29" 3 paramètres TOR een ë 
unite de il‘$50" lecteur s5, di CALE ‘ 
buffer ds 2 on ÿ stockera l'adresse du buffer dc i1'$8D" 
; brouillon de ProDOs de c'EIFI8@M SCOLB EPYT' 
bloclu as 2 numéro du bloc à lire de c" HON ‘ 
: paramètres de ON-LINE: : textes et constantes 
onlineparams anop command de c'XCAT!' 
de {127 2 paramètres nanactif de i1'25,13,13,7! 
unitol ds 1 numéro d'unité de c'##* FICTA NON SODORP **! 
bufferol ds 2 meme buffer que pour READ 115Tes - (dci its) 
dc c'" : SERBIL SCOLB’ 
; paramétres de GÊT-PREFIX et SÊT-PREFIX: occupes dc il’12*‘ 
j = de c' : SEPUCCO ‘ 
totai de il1'’10" 
prefpart anop ACLONSMESTOTE 
de 1171? 1 seul paramètre msgdate de i1‘$17° 
de {42"$200' le buffer d'entrée de c' r EL EMIRPMI EUGOLATAC" 
inçcmax ce 1124" décalage max{muv de 24 caractères 


;: adresses relatives des enregistrements d'un catalogue 














PR fin gegu * 
END 

Récapitulation 2108:BE 85 FF AO O1 B1 FE D9 2250:00 CO 29 7F C9 03 DO 03 

2110:34 26 DO 2D C8 CO 05 90 2296:4C 15 23"A4 1C' B9 9E 25 
XCAT 2116-F4 88 88 8C 52 BE A9 00 2260:18 65 73 8D 99 23 B9 ÀB 

2120:8D OF BF 8D 53 BE A9 10 2268:25 65 74 8D 9A 23 AO 00 
Après avoir saisi ce code sous moniteur, 2128:8D 54 BE A9 04 8D 55 BE 2270:20 98 23 F0 54 29 FO C3 
vous le sauvegarderez par : 2130:AD 4A 21 AD 31 21 8D 50 2278:D0 DO 14 A5 1C 48 AD 96 
BSAVE XCAT, A$2000, L1685 2138:BE AD 32 21 8D 51 BE 18 2280:25 48 AD 95 25 48 A9 FF 

2140:60 38 4C 9E BE A9 10 4C 22686:689 1B*AO0L 11 4C E2 22 20 
2000:AD 00 BF C9 4C FO OD AC 2148:09 BE A2 00 AD 31 BE C9 2290:9C 23 20 98 23 29 0F 85 
2008:39 26 B9 39 26 20 D6 23 2150:C3 DO 01 CA 86 E3 AO 00 2298:1A A2 C8 20 98 23 20 D6 
2010:88 DO F7 60 AD 4D BE FO 2158:AD 56 BE FO 44 Bl FE 85 22A0:23 C8 CA DO F6 24 1B 30 
2018:05 A9 15 4C 09 BE AD 08 2160:1A C9 03 90 EO A8 Bi FE 22A8:03 20 F2 23 20 B1 23 24 
2020:BE 8D 44 21 AD 07 BE 8D 2168:C9 2F DO D9 AO O1 Bl FE 22B0:1B 10 16 E6 1B 20 9C 23 
2028:43 21 A9 06 20 F5 BE C9 2170:C9 2F DO D1 C8 C4 1A BO 22B8:A6 1A A9 2D 20 D6 23 CA 
2030:0C DO 03 4C 09 BE 8D E2 2178:22 Bi FE C9 2F FO C6 C9 22C0:D0 FA 20 B1 23 E6 1D E6 
2038:20 85 43 8D 08 BE A9 21 2180:2E DO 06 CO 02 FO BE DO 22C8:1D E6 1C A5 1C C9 OD FO 
2040:85 3D A9 93 85 3E A9 26 2188:EB C9 30 90 B8 C9 3A 90 22D0:03 4C 4F 22 AD 93 25 8D 
2048:85 3F AO 00 84 42 84 3C 2190:F2 C9 41 90 BO C9 5B BO 22D8:99 23 AD 94 25 8D 9A 23 
2050:8C 07 BE 20 2C FE 20 5A 2198:AC 90 D9 20 3B 25 4C D8 22E0:A0 02 20 98 23 8D 95 25 
2058:20 60 AD E2 20 85 3B A9 21A0:21 AD 57 BE DO 21 AD 9A nn D 6 der DITS à 
2060:00 85 3A A2 00 A1 3A FO 21A8:BF FO 17 20 00 BF C7 9B 22F0:95 25 FO 07 A9 00 85 1C 
2068:50 20 8C F8 A4 2F CO 02 21B0:25 20 00 BF C6 9B 25 90 22F8:4C 4C 22 BA E4 1E FO 22 
2070:D0 2C B1 3A C9 BF DO 19 21B8:09 A6 1E 9A 20 8B BE 4C 2300:68 8D 95 25 68 8D 96 25 
2078:88 B1 3A C9 00 DO 12 88 21C0:09 BE AD 30 &F DO 0E AD 2308:68 85 1C C6 1D C6 1D 20 
2080:B1 3A C9 20 DO OB A5 3A 21C8:62 BE 29 02 OA OA OD 61 231029 25) 4€ €9,22 A2 05 A9 
2088:18 69 03 85 3A 90 02 E6 21D0:BE OA OA OA OA 8D 92 25 2318:2E 20 D6 23 CA DO FA A6 
2090:3B A5 3A 85 FC AS 3B 85 21D8:28A 86 1E A9 00 85 1D 8D 2320;1EV92) 20481 23 20 B4 23 
2098:FD A4 2F 20 C8 20 A5 2F 21E0:96 25 85 1C 8D 93 25 85 2328:A5 EB 8D 95 25 A5 EC 8D 
20A0:38 65 3A 85 3A A5 3B 69 D 2330:96 25 20 29 25 A5 73 8D 
20A8:00 85 3B 38 ED E2 20 A6 mob 0e er ao Dee eo 2338:99 23 A5 74 8D 9A 23 A9 
20B0:3A 20 BA 20 B0O 03 4C 63 21F8-29 25 AD 30 &F C9 BO FO 2340:00 85 06 85 07 20 08 24 
20B8:20 60 C9 05 90 06 DO 06 2200:15 A0 00 B1 73 C8 11 73 2348:EE 9A 23 20 08 24 AC 53 
20C0:E0 94 BÔ 02 18 60 38 60 2208:D0 07 C8 B1 73 C9 03 FO 2350:26 B9 53 26 20 D6 23 88 
20C8:88 Bl FC AA C8 BI FC 38 2210:05 A9 08 4C 09 BE AO 27 2358:D0 F7 20 37 24 AS ED 38 
20D0:E9 21 90 OC 20 BA 20 BO 2218:B1 73 85 EB C8 Bl 73 85 2360:E5 06 85 06 AS EE ES 07 
20D8:07 6D E2 20 91 FC 18 60 2220:EC C8 B1 73 85 ED C8 Bi 2368:85 07 AC 63 26 B9 63 26 
20E0:38 60 00 00 00 00 00 00 2228:73 85 EE 20 B1 23 20 9 2370:20 D6 23 88 DO F7 20 37 
20E8:00 00 00 00 00 00 00 00 2230:24 20 B1 23 20 B1 23 AC 
20F0:00 00 00 00 00 00 00 00 2238:B8 25 B9 B8 25 20 D6 23 : 
20F8:00 00 00 00 00 00 00 00 2240:88 DO F7 20 Bl 23 20 B1 Suite page 37... 


2100:D8 AD 6C BE 85 FE AD 6D 2248:23 4C 4F 22 20 29 25 AD 
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es imprimantes Image- 
Writer et DMP 
possèdent un grand 
É nombre de possibilités 
qui ne sont généralement pas 
exploitées par l'utilisateur. En 
effet, il faut lui envoyer des codes 
de commandes relativement 
complexes qui nécessitent 
souvent un programme particulier 
peu compatible avec d'autres 
logiciels, et dont les effets 
semblent quelquefois aléatoires. 





Heureusement le traitement de 
texte AppleWriter permet 
d'envoyer ces codes à 
l'ImageWriter et son langage de 
programmation le WPL (Word 
Processing Language) peut se 
charger de calculer les paramètres 
nécessaires aux commandes à 
envoyer. 


Le programme WPL.FILET Se 
charge de tracer des filets 
graphiques décoratifs et centrés, 
pour encadrer un titre ou bien 
pour séparer des paragraphes, 
sans quitter le texte en cours, en 
incluant les caractères de 
commande dans le texte. Il 
fonctionne avec Applewriter, 
version DOS 3.3. ou ProDOS, et 
avec une imprimante de la série 
ImageWriter. 


Le principe 


Sur l'ImageWriter le code 
ESCAPE-Vnnnnc permet de tracer 
une ligne répétant nnnn fois 
l'image du code binaire ASCII du 
caractère c. Le problème consiste 
donc, une fois choisi le caractère 
c à calculer le nombre nnan pour 


obtenir la longueur de ligne 
voulue, et à ajouter à ce code un 
certain nombre d'espace pour 
obtenir une justification au centre 
correspondant à la longueur du 
filet à tracer et non à la longueur 
du code seul. Pour obtenir deux 
filets encadrant une ligne de texte, 
il faut de plus connaître le nombre 
de caractères de celle-ci. 
WPL,FILET se chargera de ces 
calculs. 


Fonctionnement 


WPL.FILET 

- insère un marqueur à l'endroit 
du texte où vous souhaitez 
opérer, 

- compte le nombre de caractères 
du titre que vous voulez placer 
(s'il n'y a qu'un seul filet à 
tracer sa longueur est 
demandée à l'utilisateur), 

- multiplie ensuite ce nombre par 
8 pour connaître le nombres de 
points qui correspond à la taille 
de la ligne, 

- écrit œnombreen respectant le 
forinat de 4 caractères (avec 
des zéros en tête si nécessaire), 

- ajoute ensuite des espaces pour 
obtenir une longueur de ligne 
correcte pour la justification au 
centre. 


Si votre texte ou votre ligne 
compte moins de 8 caractères 
(c'est-à-dire la longueur 
minimum du code de 
commande), la ligne sera allongée 
automatiquement. Si vous désirez 
une série de lignes de longueur 
décroissantes, le programme se 
chargera de calculer une ligne 
plus courte de 4 caractères au- 


Robert Coustal 


dessous de la précédente. 


Utilisation 


Deux possibilités : 
- taper CTRL-P DOWPL.FILET, 


- mettre le programme ‘sous la 
pomme” en utilisant le glossaire. 
Il faut faire CTRL-G puis ? et 
choisir un caractère pour faire 
exécuter le programme (par 
exemple ‘_"), tapez alors 


_CTRL-PDOWPL. FILET> 


suivi de Return (> dans 
Applewriter ProDOS ou $ dans 
Applewriter DOS 3.3.). Chaque 
fois que vous voudrez utiliser le 
programme tapez seulement ‘G_?. 


Le programme une fois lancé 
vous demande de taper votre titre 
ou <kReturn> si vous voulez 
seulement une ligne. Il demande 
ensuite le, code du filet, 
c'est-à-dire le caractère dont le 
code ASCII dessinera le filet 
(chaque bit à 1 de ce code tracera 
une ligne horizontale). Vous 
pouvez essayer différent codes, 
(les caractères = v U u g mpar 
exemple, donnent de jolis filets), 
le programme vous fournit 
quelques exemples et vous 
pouvez une fois de retour au texte 
changer le caractère s'il ne vous 
convient pas. Si vous avez choisi 
d'encadrer un texte, <Retum> 
seul en réponse à la demande du 
code du filet du bas conservera le 
même code que pour celui du 
haut. 


Les titres et les filets sont insérés 
à l'emplacement du curseur dans 
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le texte et écrivent le code JT 
d'Applewriter pour remettre le 
texte en justification totale. Vous 
pouvez changer .JT dans le 
programme par .JG si vous 
préférez la justification à gauche. 


Il existe toutefois certaines 
limitations : on ne peut pas 
choisir des codes ASCII 
inférieurs à 128 et le code 255 du 
fait d'AppleWriter ; de plus, 
WPL-FILET ïintercepte les 


caractères < > ?et Return 
(CTRL-H et le paramètre du 
souligné ne sont pas conseillés). 


Saisie 


Un programme WPL ne peut pas 
dépasser 2048 caractères. 
WPL.FILET étant un peu long, 
on peut supprimer les espaces 
inutiles en tête des lignes (en en 
conservant toutefois un avant 





chaque commande), et les 
exemples de codes au début. 
Sauver ensuite en faisant CTRL-S 
WPL.FILET. 


D'autre part, si votre Applewriter 
ProDOS est patché pour ne pas 
compter les caractères Escape en 
justification totale il faut changer 
tous les PSX-7 en PSX-S et les 
PSZ8 en PSZ6 pour obtenir un 
centrage Correct. 
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Programme WPL.FILET se 
VERIZ PSY(X) 
PSz8 
À saisir à l'aide d'AppleWriter. Pour en simplifier le BCL  PS2-1 
comptage, des espaces ont été replacés par des puces (°),. PGODEC1 
PGOLI2 
DEC1 PSY-1 
DEBUT PND PGOBCL 
PPRI PGOVERI1 
PPR FILETS AUTOMATIQUES (R.Coustal/87) LI2 PSRCALC 
PPR ===-=====2------zzzzz-zz====--————-— PSRBLANC 
PPR PINune autre ligne plus courte? (O/N) :=$A 
PPRQuelques codes: PCS<$SA<o< 
PPR PASO=$A 
PPRlignes:e-fines-eee+]arges-re-mixtes PCS<SA<O< 
PPR PGOAUTRE 
PPR l'eooocoi ececcoceee'i]x PQT 
PPR 2:e<A><B><D><P>ecegnFeeee<C>8O"bz AUTRE F<x"°< 
PPR 3:°°<R><I><T>f{ooceeto0e=:"76IT#NZjum 0? 
PPR A:rssook%)se0000000e00ec0eeU5+ HHDXB 
PPR PSXSB 
PINTitre à encadrer (return filet seul) :=$A PSX-4 
PCS<SA<< PAS(X)=$SB 
PGOLI1 PGOVERI2 
PGOTITRE TITRE PSRPLACE 
LT1 PINlongueur en caractères:=$B F<<SA < 
PSXSB Oo? 
PAS (X}=$B PSX0 
PCS<SB<0< COMFT DHH 
PGOLI1 F<?<? <A 
PSRPIACE B = 
FILET PINCode du filet:=$C F<' << 
PSRFILTR g? 
PCS<$C<< D 
PGOFILET INC  PSX+1 
PGOVERI2 PGOBCLO 
VERI1 PSX+1 BCLO F<? << 
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O? 





PGOINC DOS 3.3 o? 
TOTAL PSX-1 B 
B ProDOS PRT 
VERI3 PAS $A =$A CALC PSYI(X) 
PSX4+2 PS20 
PSY(X) *8 PS2+8 
PS28 PSX-1 
BCL1 PSZ-1 PGO*8 
PGODEC2 PRT 
PGOECRIT BIANC PSX-7 
DEC2 PSY-1 PAS=$A 
PGOBCL1 BCL2 PASSA =$A 
PGOVERI3 PSX-1 
EGRIT EF<rrérasarse PGOBCL2 
o? CODE F<”""<>2V>000(2)$C>< 
PSRCALC 0? 
HAUT PINCode du filet haut:=$cC DHHHHHHXD 
PSRFILTR F<><$A>< 
PCS<$C<< o? 
PGOHAUT PRT 
B FILTR PCS<$C</< 
PSRBLANC PRT 
BAS  PINCode du filet bas:=$D PCS/$C#?/ 
PCS<$D<< PAS=$C 
PGOBAS2 PCS/$C/>/ 
PAS$D=$C PAS=$C 
PSRPILTR PRT 
PCS<$C<< 
PGOBAS 
BAS2 PSRCODE 1- mettre un CTRL-L (taper au clavier CTRL-V CTRL-L CIRL-V) 
POT 2- mettre Escape (taper CTAL-V ESC CTRAL-V) 
2468:60 20 D4 23 AO 10 20 98 2580:A5 08 29 FO 8D 92 25 60 
.… Suite de Ja page 34 2470:23 A2 OD AO 00 DD 89 B9 2588:CA 10 CD A9 06 4C 09 BE 
2478:F'0 14 C8 C8 C8 CA 10 F5 2590:00 03 50 00 00 00 00 02 
2480:AA A9 24 20 D6 23 8A 20 2598:00 00 00 01 00 02 04 2B 
2376:24 A5 ED 85 06 AS EE 85 2488:DA FD 20 D4 23 60 A2 03 25A0:52 79 AO C7 EE 15 3C 63 
2380:07 AC 70 26 B9 70 26 20 2490:B9 97 B9 20 D6 23 C8 CA 2SA8:8A B} D8 00 00 00 00 00 
2388:D6 23 88 DO F7 20 37 24 2498:D0 F'6 20 D4 23 60 20 00 25B0:00 00 O1 01 01 01 01 O1 
2390:20 B1 23 2C 10 CO 18 60 24A0:BF 82 00 00 A9 6F 8D 99 25B8:7C 2D 2D 2D 2D 2D 2D 2D 
D 0e 20 0 80 60 24 1) F0 1 24A8:23 A9 BF 8D 9A 23 AC 7B 25C0:2D 2D 2D 2D 2D 2D 2D 2D 
2AACICC 93 26-90 03 AC 8 26 24B0:26 B9 7B 26 20 D6 23 88 25C8:2D 2D 2D 2D 2D 2D 2D 2D 
RS ER 24B8:D0 F7 20 D4 23 AO 22 20 25D0:2D 2D 2D 2D 2D 2D 2D 2D 
Deceo er incl co 3ù 00 24C0:98 23 FO 50 C9 C8 BO 4C 25D8:2D 2D 2D 2D 2D 2D 2D 2D 
eo a 0 D 0 24C8:4A 85 F9 88 20 98 23 FO 25E0:2D 2D 2D 2D 2D 2D 2D 2D 
CD Do RE) 25 210100 24D0:43 85 FB 6A 4A 4A 4A 4A 25E8:2D 2D 2D 2D 2D 2D 2D 2D 
a as 7 tie 24E8:B0 05 48 20 D4 23 68 20 2600:20 20 53 43 4F 4C 42 20 
23D8:00 CO 10 OF 2C 10 CO C9 e) 
ae oc 24F0:22 25 A9 2D 20 D6 23 A5 2608:20 45 50 59 54 20 20 20 
bn ce CU 24F8:FA 0A 65 FA A8 A2 03 B9 2610:20 20 20 20 20 20 20 20 
me 2500:BE B9 20 D6 23 C8 CA DO 2618:20 20 20 20 20 20 20 20 
RE co rs 2508:F6 A9 2D 20 D6 23 A5 F3 2620:20 20 20 20 20 20 20 20 
Dodo) 27 210 4 co 25i0:20 22 25 60 A2 24 BD C1 2628:20 20 20 20 20 20 20 20 
TE Er 2518:B9 20 D6 23 E8 FO 2D 90 2630:20 20 4D 4F 4E 58 43 41 
2520:F5 60 AA A9 00 20 24 ED 2638:54 19 OD OD 07 2A 2A 20 
2410:85 08 A2 08 A5 06 46 08 
5126" 00 60-02 Pé 0710h Do 2528:60 20 00 BF 80 91 25 90 2640:46 49 43 54 41 20 4E 4F 
2530:09 A6 1E 9A 20 8B BE 20 2648:4E 20 53 4F 44 4F 52 50 
2420:F5 85 06 C8 DO ES 60 20 
2538:09 BE 60 C6 1A C6 1A AS 2650:20 2A 2A OF 20 3A 20 53 
2428:D4 23 AO 13 20 98 23 85 F0 00 das 8) 99 23 45 NS 
2430:06 CB 20 98 23 85 07 AO 
2548:74 8D 9A 25 8D SA 23 E6 2660:4F 4C 42 OC 20 3A 20 53 
2438:00 A5 07 C9 03 90 OA DO 
2550:FE DO 02 E6 FF AE 31 EF 2668:45 50 55 43 43 4F 20 20 
à À sm RS 2558:BD 32 BF 29 FO 8D 98 25 2670:0A 20 3A 20 4C 41 54 4F 
2448:10 A5 07 DO OC A5 06 C9 RD 0 ne ca o7 25 bo 0 EE pre 
2450:64 BO 06 C9 OA B0 01 C8 2568:A0 00 20 98 23 85 08 29 2680:4C 20 45 4D 49 52 50 4D 
2458:C8 C8 C8 20 A8 23 A5 07 2570:0F C5 1A DO 13 A8 20 98 2688:49 20 45 55 47 4F 4C 41 
2460:A€ 06 20 24 ED 20 D4 23 2578:23 D1 FE D0 0B 88 DO F6 2690:54 41 43 18 60 C9 
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Pour éviter les saisies fastidieuses 
et pas toujours fiables, Pom's 
met à votre disposition des 
disquettes d'accompagnement qui 


regroupent l'ensemble des 
programmes de la revue. 


Apple // 


Pour les Apple //, deux types de 
disquettes : 


* _140K0, 5,25 pouces au prix de 
60,00 EF, fichiers en format 
DOS 3.3 au recto, en forinat 
ProDOS au verso ; 

+ 800Ko, 3,5 pouces pour 
Unidisk, au prix de 80,00 F, 
fichiers en format ProDOS 
seulement. 


Sur la 800K0 et la 140K0 face 
ProDOS (toutes deux nommées 
/POMS32), nous vous conseillons 
d'installer les fichiers ‘ProDOS” 
et ‘Basic.System’, ainsi la 
disquette sera bootable. 


Sur 1a liste ci-contre, les fichiers 
sont repérés ainsi : 


D : face DOS 3.3 de la 140K0 ; 
P : face ProDOS de la 140K 0 ; 
8 : disquette 800K 0. 


Macintosh 


La liste ci-contre donne 
l'ensemble des fichiers de la 
disquette Mac, fichiers utilisables 
sur tous les types de Macintosh. 








Fichiers Apple // 


CRCRCRCRCRCRCRS 


© © DO DO 


© " 


CS 4 5 DONC OL, SL «SL, PS, OS IS SL 


© © © © © © © © © © © © © © © © % E © & © 


TRANSFORMEUR 
HGR.SUPHGR.C 
HGR.SUPHGR.S 
BIGTEXT 
BIGPGM 
BIGSAVE 
BIGPTR 
ECR.VIRT 
VIRPUZZLE 
VIRCEL 

VIDEO 

XCATS 

XCAT 
NPL.FILET 
COPY 

COPY.S 
COPIE.TF 
RECURSIVE.TEXT 
U.GESTABL.TEXT 
P. REPERT. TEXT 
DETECT 
RECURSIVE 
U.GESTABL 
P.REPERT 
BASIC.PASCAL 
BASPAC.OBJ1 


Programme (RUN où -} 
Utilitaire pour Transformeur 
Source en format TEXT 

format TEXT 
format TEXT 

format TEXT 


Source en 
Source en 
Source en 
Table 
Code issu des 3 sources et de la table 
Pgm de création de ECR-VIRT (RUN) 
Pgm de démonstration (RUN) 
Écran de démonstration pour VIRCEL 
Source en format 1EXT 
Objet (BRUN ou -} 
WPL à exécuter depuis AppleWriter 
Objet (BRUN ou -} 
Source en format 1EXT 
Pgm Basic (RUN ou -) 
Ces trois progranmes Pascal 
sont à convertir à l’aide 
d'Universal File Conversion 
Pan Basic (RUN) 
Ces trois proÿammes Pascal 
sont à convertir à l'aide 
de Basic-Pascal 
Pgm de conversion DOS/PASCAL (RUN) 
Utilitaire pour BASIC.PASCAL 


Fichiers Macintosh 


Dossier Système 


Font/DA Mover 
Mots Croisés 
Grillel 

mots _croises.pas 


Accessoire 


‘fuseaux’ 


décalage.Asm 
mABcro.Txt 
CalEqu.Txt 


Contient ‘fuseaux’ installé et quelques 
éléments vitaux 

Pour installer ‘fuseaux’ 

Application du même nom 

Le problème posé dans ce numéro, page 73 
Source de l'application ‘Mots Croisés’ 
Fichier Font/DA Mover qui contient ‘fuseaux’ 
Source MDS 68000 de ‘fuseaux’ 
Fichier de macro-instructions pour 
Fichier d'équivalences pour ‘fuseaux’ 


‘fuseaux’ 





Une suggestion pour le prochain numéro, 
une question sur T_Pom's ou ad litteram, 


un regret à formuler, 


une hésitation sur un programme Pons ? 





Notre boîte à lettres sur CalvaCom 


emp11 


est à votre disposition. 
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Apnie, le logo Apple, Maoniosh soni des marques dépeshes de Apple Computer nc. 


Apple Expo 87 : inutile de taper 36. 5. 


pour que je vous montre tout. 





Si vous désirez vraiment taper 36.15 
(code d'accès : Villette, mot clé : Je Apple) 
vous trouverez tous les renseignements 
utiles à propos d'Apple Expo. 

Toutefois, si vous désirez faire des ren- 
contres intéressantes, ou tout simplement 
tout voir d’un coup d'œil décomplexé, 
nousavons toujours pensé chez Apple que 
rien ne remplacera les vraies expériences 
humaines, et surtout pas les machines. 

En fait, ils "agit d'un coup d'œil parti- 
culièrement pere puisque vous 

pourrez en 14.000 m? à travers 160 e 
EE contempler toutununivers, dcr 
sonprésent et son avenir, celui d Apple. 

Celui de votre Apple. 

Voyons d'abord ce que vous pourrez 


Apple Expo - La Grande Halle - La Villette. == 


voir du 30 septembre au 3 octobre. 

Lorsque vous aurez vu l’ensemble des 
produits Apple et non Apple, mis au point 
É des développeurs extérieurs, vous 

te tous les logiciels dis- 
Dies per ‘hui sur l'Apple II ou 
Macintosh ; avec une attention toute parti- 
culière pour les derniers-nés des Etats-Unis 
visibles en France pour la première fois. 

Au passage, n'oubliez pas de deman- 
der au Macintosh I de se livrer à une petite 
exhibition personnelle. 

Gardez un peu de voie temps pour 

er les domaines où Apple tient une 
place toute particulière, comme l'éduca- 
tion ou l'édition personnelle 

Et si vous n'êtes toujours pas rassasiés, 





Du 30 septembre au 3 octobre. 


arrêtez-vous au village de formation pour 
demander à voir tout ce que vous n'auriez 
osé imaginer. 

En ce qui concerne les rencontres, rien 
n’a été laissé au hasard. Que ce soit 
au cours de l’une des nombreuses confé- 
cences, pendant un spectacle, au Club 
Apple, ou tout simplement au restaurant, 
vous rencontrez qui vous voulez. 

Apple Expo du 30 septembre après- 
midi au 3 octobre 1987. La Grande 
Halle - La Villette. Heures d'ou- 
verture: mercredi de # 
12 h à19h, autres jours 
de0hà19h. 
journée professionnelle. 
Métro: Porte de Pantin. 





Apple 
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es anciens utilisateurs 
de l'Apple // se 
souviennent sans 
doute d'un logiciel 
ace (pour son époque) : 
AppleWorks, qui existe toujours 
et a été perfectionné depuis. Dès 
l'origine, ce premier vrai intégré 
pour micro-ordinateur proposait 
trois fonctions : tableur, gestion 
de fichier et traitement de texte. 
La communication entre les 
fonctions se faisait, au moins 
partiellement, par Copier/coller 
grâce à un Presse-papiers, certes 
rudimentaire, mais qui préfigurait 
celui du Macintosh. Les 
différents modules étaient gérés 
par des commandes homogènes, 
très conviviales (pour ce type de 
matériel sans souris) et aisément 
mises en œuvre. Une fonction 
d'aide était accessible en 
permanence. 


Quand on aborde Microsoft 
Works, on est frappé par sa 
conception, rappelant sur bien 
des points celle d'AppleWorks, 
mais avec — évidemment — les 
progrès dus, d'une part au 
fonctionnement du Macintosh, 
d'autre part à la puissance du 
matériel. 


Works propose, outre les trois 
outils précédents, un grapheur 
associé au tableur, un module de 
courrier personnalisé par liaison 
du traitement de texte et de la base 
de données, et un module très 
complet de télécommunications. 
Les liaisons entre modules 
utilisent systématiquement le 
Copier/Coller, cependant que les 
liaisons avec d'autres logiciels se 
font par importation ou 
exportation de documents, ou 
encore par l'intermédiaire du 
module de communication. 


Pris individuellement, les outils 
sont classiques, possèdent les 





fonctionnalités indispensables, 
sans sophistication. Ils sont en 
conséquence faciles maîtriser et à 
mettre en œuvre. 


Pris ensemble, on apprécie le 
passage instantané d'une fonction 
à une autre, par simple activation 
de la fenêtre voulue, et la liaison 
elle aussi presque instantanée par 
le Presse-papiers. 


À noter une bogue gênante : 
Works, non seulement est 
incompatible avec l'Album, mais 
de plus une tentative d'utilisation 
se solde toujours par une 
“bombe” ! Espérons que 
Microsoft corrigera rapidement 
cette erreur. 


Le traitement de 
texte 


Il ressemble beaucoup à 
MacWrite ou à Word. Il utilise 
classiquement une règle et 
possède les fonctions, également 
classiques, d'alignement, 
pagination, en-tête et bas de page, 
recherche et remplacement, etc. 


Ses “plus” 


e la possibilité de juxtaposer face 
à face du texte et des dessins ou 
graphiques issus, soit de logiciels 
tiers, via le Presse-papiers, soit 
du grapheur intégré ; 

+ le transfert de caractéristiques 
de formatage d'un paragraphe à 
un autre par Clic ; 

+ l'existence d'une panoplie 
d'outils semi-graphiques 
intégrés : traits, encadrements, 
ovales, avec diverses épaisseurs 
de traits. 


Ses “moins” 


- l'absence de fonction de mise 
en colonnes du texte, qu'on peut 
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cependant s'attendre à trouver 
dans un logiciel modeme ; 

+ l'absence de tabulateur 
décimal ; 

+ l'absence de glossaire et, quoi 
que l'importance soit sans doute 
moindre, de dictionnaire et de 
césure automatique. 


Le gestionnaire de 
fichiers 


Il] s'appelle un peu 
pompeusement Base de données, 
c'est en fait un honnête 
gestionnaire de fichiers, dont la 
conception ressemble beaucoup à 
celle de File (également proposé 
par Microsoft). 


Ses “plus” 


* des possibilités très larges de 
sélection d'enregistrement par des 
associations de fonctions 
logiques ; 

+ de bonnes possibilités de 
caractérisation des champs et 
d'exécution de calculs sur les 
champs numériques ; 

+ des formatages des dates 
intéressants ; 

° une grande facilité de définition 
d'un état, de sous-totaux et 
totaux, de sauts de lignes et de 
pages , 

+ la possibilité de conserver des 
“gabarits” d'états. 


Ses “moins” 


+ _pas de vue préalable des états à 
l'écran (seulement les résultats 
des totalisations) ; 

e la limitation de la longueur 
d'un champ (nom + contenu) à 
une ligne de l'écran. 


Par ailleurs, il ne faut pas perdre 
de vue que ce gestionnaire est 
mono-fichier. 
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Le courrier 
personnalisé 


En associant un texte avec un 
fichier (ou plusieurs), on peut 
créer aisément un système de 
courrier personnalisé travaillant 
sur tout le (ou sur une sélection 
du) fichier. Il suffit d'indiquer, 
en position, les rubriques des 
fichiers à utiliser lors de 
l'impression, par choix dans une 
liste de rubriques présentées à 
l'écran. 


Ses “plus” 


° une facilité extraordinaire 
d'utilisation ; 

+ Ja possibilité de voir à l'écran 
ce que sera exactement tel ou tel 
document imprimé (l'enregis- 
trement où se trouve le curseur 
étant utilisé pour cette vue 
préalable). 


Ses “moins” 


* on ose à peine le dire : le fait 
qu'il faille redemander l'option de 
préparation pour chaque champ à 
intégrer dans le document de 
traitement de texte. 


Le tableur 


Sa parenté avec le célèbre 
Multiplan, et peut-être plus 
encore avec Excel (deux logiciels 
signés Microsoft) est évidente. Sa 
capacité est de 230 colonnes et de 
9999 lignes, ce qui est très 
confortable. On y trouve une 
large panoplie de fonctions, un 
travail en références absolues ou 
relatives, internes ou externes, 
des options de formatage variées, 
etc. 


Ses “plus” 


+ ]a transposition aisée des lignes 
et colonnes, notamment pour la 
construction de graphes ; 

+ de nombreuses fonctions 
mathématiques, logiques, 
statistiques et financières ; 

* une bonne variété d'options de 
collage spécial ; 

* la possibilté de découper la 
fenêtre en deux “panneaux”, 
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horizontalement ou vertica- 
lement ; 

+ la déplacement de cellules 
obtenu par clic. 


Ses ‘moins’? 


* des fonctions de date et de 
chaînes de caractères 
inexistantes ; 

* pas de possibilité de créer des 
formats personnalisés (comme 
c'est la cas avec Excel); 


Par ailleurs, il n'existe pas de 
macro-commandes associées au 
tableur. 


Le grapheur 


Ï est associé au tableur, et permet 
de tracer des courbes, des 
diagrammes à barres 
(éventuellement combinés) et des 
diagrammes à secteurs 
(camemberts). Un graphique est, 
comme il se doit, mis à jour 
automatiquement par la feuille de 
calcul qui le sous-tend. 


Ses “plus” 


+ la possibilité de représenter des 
lignes de données disjointes (ce 
que ne permet pas un outil aussi 
puissant qu'Excel !) ; 

* une échelle semi-logarithmique 
disponible ; 

+ la possibilité de conserver des 
“gabarits” utilisables en diverses 
circonstances. 


Ses ‘moins’ 


+ la limitation à 4 séries de 
valeurs ; 

+ la représentation de séries de 
lignes uniquement (pour 
représenter des séries de 
colonnes, il faut passer par 
l'intermédiaire de la fonction 
Transpose, heureusement aisée à 
mettre en œuvre). 


La fonction 
communication 


Il est relativement rare de trouver 
aujourd'hui encore une fonction 
communication intégrée à un 
logiciel. Celle de Works est à la 
fois puissante et très commode 


el 


ESSAIS 


d'emploi. On peut définir sur un 
écran les caractéristiques 
techniques de la communication, 
puis envoyer ou recevoir des 
messages (frappe directe au 
clavier), des textes (sans 
formatage), des fichiers (avec 
toutes les caractéristiques de 
formatage, en texte ou en dessin 
ou graphique). 


La rareté des options 
communication fait qu'il est 
difficile de parler de “plus” et de 
“moins” : par rapport à quoi ? 


Ce qu'on aime 

+ la très grande variété possible 
des spécifications techniques ; 

+ la possibilité de créer des 
“documents communications” qui 
mettent en mémoire les 
spécifications et un ‘annuaire 
téléphonique” personnalisé ; 

* sous réserve de posséder le 
modem voulu, la numérotation 
automatique, la mise en réception 
automatique ; 

+ Ja facilité opératoire. 


Ce qu'on n'aime pas 
* rien de particulier. 


La liaison entre 
outils 


Elle utilise systématiquement le 
Copier/Coller, quels que soit les 
outils entre lesquels on veut 
établir un transfert de données, 
sauf: 

* le courrier personnalisé, réalisé 
par une fonction particulière ; 

° la liaison tableur-grapheur, qui 
est automatique. 


Ses “plus” 


+ l'instantanéité du passage d'un 
outil à un autre par ouverture (si 
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ce n'est déjà fait) ou activation de 
fenêtres ; 

+ la convivialité très poussée, à 
la Macintosh, du passage par le 
Presse-papiers. 


La liaison avec 
d'autres logiciels 


Elle peut se faire de trois façons : 


+ par le truchement du 
Presse-papiers, comme entre les 
fonctions de Works ; 

* par lecture ou enregistrement 
sous forme de texte seul, pour les 
logiciels qui comportent cette 
possibilité (mais les options de 
formatage sont perdues), ou sous 
certains formats particuliers, par 
exemple SYIK ; 

° en utilisant le module de 
communication (pour les 
logiciels, Macintosh ou 
ordinateur tiers, qui disposent 
eux-mêmes d'un tel module ou 
peuvent en utiliser un). 


Ses “plus” 


+ de nombreuses solutions 
possibles, dans lesquelles on peut 


faire un choix en fonction du 
problème à traiter ; 

* la grande facilité d'usage des 
liaisons par Presse-papiers ou 
module de communication. 


Ses “moins” 


+ la nécessité, si on sort des 
options simples, de bien 
comprendre la structure des 
documents produits par d'autres 
logiciels : format, caractères de 
contrôle,... (mais ce n'est pas 
propre à Works) ; 

* surtout, c'est là que se fait 
durement ressentir l'incompa- 
tibilité de Works avec l'Album. 


En résumé 


Pour 


Un logiciel pour lequel on est 
parfois tenté d'utiliser l'adjectif 
génial, en particulier pour son 
module de communication, sa 
fonction de courrier personnalisé 
et la facilité de commutation et de 
liaison entre outils. 


Une très grande facilité 


d'utilisation, parfois au détriment 
de la puissance, maïs jamais au 
détriment de la rapidité. 


Contre 


Quelques lacunes regrettables, 
comme l'absence de colonnage 
dans le traitement de texte ou de 
fonction de date dans le tableur. 
Et surtout, l'incompatibilité avec 
l'Album, générant une bombe et 
une ‘grave erreur système’. 


Un bilan très largement 
positif 


Works peut fort bien être le 
logiciel unique pour les 
besoins courant de la plupart de 
ces “travailleurs du savoir” chers 
à nos amis d'Apple, certains 
d'entre eux étant amenés par 
ailleurs à utiliser des logiciels 
spécialisés de leur profession ou 
de leur technicité. 


ÊÉ 


EN 
ne) 


©: Le réseau 
 AppleTalk 


Le journal 
du Hocintosh 


Gagnez 

un disque dur 
20 mégas 

en élisant 

vos icônes d'or 





More - Altarès - Ready,Set,Go!3 - Tops - Turbo Pascal - Xyphus 


Fm 
Pour être sûr d 





e ne rater aucun numéro, abonnez-vous. 


je m'abonne." 


Adresse: …… 
Code postal: . 


Cliquez sur Icônes. 


Œ Ce qu'en pensent les lecteurs: 
@ "C'est avec plaisir et intérêt que je lis Icônes dont la plus grande 
qualité, à mon sens, est l'intelligibilité pour un profane curieux." 

e ‘Per ettez-moi de vous féliciter pour la très haute qualité rédaction- 
nele de votre revue qui, à mon sens, me semble rarement atteinte dans 
bien des revues américaines auxquelles j'avais l'habitude de souscrire” 
e "Icônes doit trouver sa place dans la bibliothèque de tout 
Macintoshien qu se respecte." 

© ‘Enfin des articles objecmfs qui savent faire la part es choses 

et qui ne portent pas Apple aux nues béatement ! Bravo, continuez." 

e "J'ai eu le plaisir de veir votre revue si visuellement passionnante 

et je tiens à continuer le plus longtemps possible. C'est pourquoi 


NOM rer 






Ne rinhaunan a dense 
PrOfESSIONS se... 


si Icônes vous déçoit, il suffit de nous retourner avant dix jours votre 
ler exemplaire pour etre intégralement remboursé (chèque retourné) 


Tirez le macsimum de votre Macintosh. 


…— 
JE 


Bulletin d'abonnement à renvoyer à Icônes 
135 bis rue du Faubourg de Roubaix 59808 LILLE 


OK. Je clique sur Icônes. Je m'abonne pour huit numéros. 
France: 180F. Etranger: 250F. Ci-joint mon réglement par chèque. 
De PTENOML rene Meme 


Satisfait ou remboursé: 
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ne revue telle Pom'’s 
pouvait-elle proposer 
des grilles de mots 
croisés sans proposer 
Ja sit nd de l'ordinateur ? 
L'application présentée ici pernnet 
de traiter sur l'écran des grilles de 
mots croisés préenregistrées ; elle 
présente le double avantage de 
remplacer avantageusement 
crayon et gomme, et d'aborder un 
nouveau langage dans ces pages : 
le Turbo-Pascal. L'application 
permet de sauvegarder une 
recherche en cours pour la 
reprendre à tête reposée. 





Utilisation 


Par le double-clic habituel, lancer 
l'application Mots_Croisés. 


Par défaut, la grille numéro 1 est 
chargée. Si cette grille n'est pas 
présente sur la disquette, un 
message d'erreur apparaît. Pour 
sélectionner une autre grille (s'il 
en existe. une),:cliquer sur le 
rectangle grille numéro. Une 
boîte de sélection apparaît alors. 


Roland Jost 


Choisir le numéro de la grille en 
cliquant sur les cases + ou -, puis 
charger la grille en cliquant dans 
OK. 


Déplacer la souris sur la grille, 
frapper la lettre à inscrire dans {a 
case pointée par la souris ; bien 
sûr les cases noires ne sont pas 
accessibles. 


Pour conserver une grille 
inachevée, cliquer Sauver. Cette 
grille pourra être rappelée dans 
l'état ultérieurement. 


La commande Effacer vide la 
grille. 


I est possible d'imprimer le 
problème sur papier en cliquant... 
Imprimer. 


Pour quitter le programme choisir 
l'option... Quitter. 


Enfin, pour contrôler les 
résultats, enfoncer la touche TAB 
tout en cliquant dans Grille 
numéro. La solution du problème 
s'affiche (Le problème de ce 


numéro faisant l'objet d'un concours, 
cette option ne fonctionnera 
pas….). 


Structure d'un 
fichier Grille 


Les fichiers grilles sont des 
fichiers TEXT nommés 
GRILLE, GRILLE2... Leur 
contenu doit être le suivant : 


° une chaîne de 100 caractères 
où sera stockée la grille en 
cours de remplissage ; 

° 1 retour chariot ; 

+ 1 chaîne de caractères 
contenant la solution du 
problème. Les cases noires 
sont représentées par des 
points ; 

e 1 retour chariot ; 

° 1 certain nombre de caractères 
pour les définitions 
horizontales ; 

° 1 retour chariot ; 

° 1 astérisque ; 

+ 1 retour chariot; 

+ les caractères nécessaires pour 
les définitions vergicales. 


L'encadré donne un exemple de 
fichier. 





Exemple de fichier exploitable par Mots croises 


Pour plus de compréhension, les espaces ont été matérialisés par des ». Un tel fichier peut-être constitué à 
l'aide d'un traitement de textes (sauvegarde avec l'option ‘texte seul’). 


souoslesesseus ee Msn ee res vsesvsortere sole ep enbi tee vint e joues QD eee, seerresesserserese eos, s 


INTERPRETENOE.OE.CUBTU..SU.UBUEVITERAS.CGERS. .M.MAEA. .ELSE.OTRU.LION.YE..NAAN.LEUORDINATEURRESTERAI.S 





1. Parle plusieurs langues, - 2. Patriarche. - Cardi- 

naux. — Noble inversé, - 3. Caché. - Appris. - Père de 

comédie. - 4, Feras un détour. —- 5. Rivière de France. - Possessif. - 6. Voyelles. - Un 

langage français qui a eu bien peu de succés. Centre de vote. - 7. Petit ruisseau. - Le roi des a 
nimaux. Bébut de monnaie. - 8. - @uatre de Nathan. Vieux loup. - 9. Be plus en plus puissant. - 


10, Ne partirai pas. 
* 


1. Type de varialsle. - Opérateur logique, - 2. Récent, - Note, - 3. Inutile avec Mac Draw. - Fin de 
verke 

- inversé : Avait son siège à Genève. - 4, Consonnes . —- Bon pour le neurrisson. - 5. Emblème d'un 
parti 

politique. - Grimpe aux arbres. - €. Craïinte. - Système de détection. - 7. Ainsi soit-i1i. - Symbole 
chimique. - 8. Monnaies européennes. - Monnaie d'Europe. - 9. Récipient. - Axe. - 10. Enseignants. 
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Programme Mots Croises 
Turbo-Pascal 


PROGRAM Mols_Croises; 
{Roland JOST - VERSION 2.0 - Juin +987} 


{$U-} 
{$T APPLMCO2] 


uses Memtypes, Quickdraw, OSlintf, Toollnti, PackintfPasinOut MacPrint: 


const 
System= 0; 
NewYork = 2; 


type 
str15 = string[15]; 
Char Array = packed array[0..4999] oi Char; 


var 
i 
L 
ncase, 
fasc, 
fdesc, 
lin, 
nombre, 
enno : Integer; 
textinlength, 
textintlenglh  : longint 
inRect, 
F, 
ri, 
ared, 
brect : Rect, 
inkey : char; 
ENCOUS, 
solution : siring[100); 
chaine, 
numero, 
S, 
nomgrille , 
sn : string: 
C : point; 
cases : array{[1..100] ol rect; 
commande : array[1.5] of rect; 
mes : arraÿ([1..4] of string[10]; 
Line : arrayf1.50] ol string[100]; 
gPort : GratPor; 
myEvernt :evenlRecord; 
sortie, 
solflag :boolean, 
Yexlin, 
Textin1, 
TexiOut : CharArray: 
Into : Fontinlo; 
fa=snn sense ss nnn nee sssessnnesesssssssee) 


procedure PutMsg {m : strt5; 
r : Rect}; 


{ ecrit la chaine de caractères m dans le rectangle r} 


var 
h, v : integer: 
begin 
h := reft + {rright - rleft - StringWidth{m}} div 2: 
v = r.top + (r.bottom - r.lop - fAsc - fDesc) div 2 + fAsc: 
MoveTofh, v}: ù 
DrawString{m}; 
end;{(PutMsg} 
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procedure boites; 


{ affiche le numéro de la grille en cours } 





begin 
SetRect{commende{5],150,10,230,30); 
FremeRoundRect{commande5],5,5); 
PutMsgl'grille n°" + sncommaride(S]}; 
end; {boites} 


procedure messages; 
{ initialise et aifiche les commandes } 
begin 


SetRect{commande{1],10,10,70,30}; 
FrameRoundRect{commande[1,5,5); 
PutMsgl'Etfacer',commande[1]); 
SetRect(commande[2}80,10,140,30); 
FrameRoundRect(commarde{2],5,5); 
PutMsgl'Sauver ,commande|(2)}; 
SetRecifcommande[3],t0,40,70,60}: 
FrameRoundRect{commande[3],5,5): 
PutMsgl'imprimer’,commande[3}): 

SetRect(conmande(4],80,40,140,60); 
FrameRoundRect{commande[4],5,5}; 

PutMsgl Quitter’, commande(4]); 
boiles; 


end, [messages} 


pesmmnnnnnnnnannannnnnnnnnnnnnn se nnnnnnnnnnnnnnnnnnnnnnnne) 
procedure remplit._grille ; 

{ affiche le contenu de la grille } 

var i :integer; 


begin 
fori = 1 to 100 do begin 
eraseReci{cases|i]); 
case ercours||] of 
"! : inver:rect(casesli]}; 
otherwise 
putmsg{enœurs|i],casesfi]); 
end; {case} 
er: {for i] 


end; {remplit _ grillé} 


procedure affiche_solution ; 
{ affiche la solution de la grille } 
var i :integer; 


begin 
for i := 1 to 100 do begin 
eraseRecl(cases|i|}; 
case solution[i] oi 
"7 invertrect{cases|i]), 
otherwise 
putmsg{solution[ijcases|i]}; 
end, {case} 
end; [for i} 
solflag :=taise; 
end; {affiche_ solution} 


fannnssesennennnnennnnnnennennnn een enn nes onnnennne) 


procedure affiche_grille: 


var ji,):integer: 


begin 


{ génére la grille 10 * 10de mots croisés ] | 


for j:= 1 t0 10 do 
begin 
for i = 1 to f0do begn 
SetRect{r,270+20*i20” j,290+ 20"i,20+20°j): 
FrameRect(r}; 
SetReci{r1,271+20%i,1+20°),289+20"i,19+20"j); 
cases{i+10°(i-1)] := rt; 


SetReafrt ,270,20"j290,20+20"j): 
NumToSiringli chaine}, 
PutMsg(chaine,rt}; 


for | :a 1 t0 10 do begin 
SetRect(r1,270 + 20",10,290+20°,20); 
Numtostring{i,chairie): 
PutMsg(chaine,rt); 


end; {affiche_grille) 


Procedure laittextrecl; 


var 
axrect, bxrecl : rect: 


begin 
SelReci{axrect,5,80,270,210); 
SetRect{bxrect,5.230,507,330); 


aRect.lett :« axRect.lelt +5: 
aRect.righi :« axRect right - 5; 
aRectbofom := axRect bottom - 5; 
aRect.top := axRect.top + 5; 


bRect.leti := bxRect.left +5; 
bRecl.righl :« bxAectright - 5: 
bRect.bottom ‘= bxRectbotlom - 5: 
bRect.iop = bxRect.top + 5; 


end; { Procedure laittextrect } 


{= 2É==RRDOGNRM== == ESP SE == SBMOOEÉ=- RMS S= MMS === SES =} 


procedure rappel 


{ chargement d'un problème à partir du disque ) 
{ e1 affichage des définitions. ] 


var 


ierreur ; Integer; 
F:Text, 


car: char; 
begin 


nomgrille :« "grile'+sn; 
{sl} 
Reset(F, nomghile}; 
erreur :« IOResuh: 
Readhn {F,encours); 
erreur := IDReSuh; 
Readin(F,solution); 
erreur := lOResult; 
if erreur « Olhen begin 
lin *z0: 
while car <>“ do 
begin 
Read{F.car); 
Textin{lin] :« car: 
na lin + 1; 
end; 
textinlength ;= lin - ?; 
Read(F,car); 
In := 0; 
while not Eof(F) do 


begin 
Read(F,Textint [lin}); 
En :=lin +1; 


end, 
lextinilength :« lin: 
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end; if] 
ctose(f) 
it erreur <> O then begin z = | 


SysBeep(1}; Eh) — 
Moveto{200,150); $ ES 
DrawStringl'Celte giille n'existe pas tl}; LS 
else begin 
affiche_grille: 
remplit_grille; 


moveto(5,80); DrawStringl'Horizontalement'}, 
TexBox(@Textin.textiniength, arect, 0): 
moveto(5,225), DrawStringl Vericalement'). 
TextBox(@Textinitextinilength, brect, 0): 
ed; 
($i+} 


end; { rappel} 


a — 


procedure saisig_numero; 


{ saisie du numéro de la grille à chaiger } 


var boite, { contour } 
mi, { rectangle pour le-)} 
rc2, { rectangle pour le + ) 
r0k { rectangle pour OK] 
‘red; 
begin 


EÉraseRect(commaride{5]). 
SetRect(boite,150,10,250,60); 
FrameRoundRect(boite 5,5}; 
Moveto(170,25);DrawStringl'grile n° *}: 
PenSize(1,1}; 
SelReci(r1,220,14,240,28); 
SetRect{rc1,224,40,236,51 ); 
SetRect(rc2,170,40,182,51); 
PutMsgl('+',rc1); 
PutMsgl-'rc2); 
SetReci(rok,190,35,214,55); 
FrameroundRect(rok.8,8); 
PulMsgl'OK'rok); 
Frameroundrect(ic1,5,5); 
FrameRoundRed{rc2, 5,5}, 
case ord(sn|0)} of 
1 : nombrei := ord{sn(f])-48: 
2 : nombrei := 10*{ord{sn[1})-48} +ord{sn{2)}-48: 
3 : nombret := 100“{ord{sn{1]}-48) + 10‘{ord{sn[2]}-48) +ord(sn[3]}-48: 
er {case} 
PutMsgtsn+’.rt }: 
repeat 
Getmouse(c}; 
if Button and PtinRect(c,rci ) then begin 
nombre = nombret+1; 
ifnombrei > 999then nombre := 1; 
NumToSting{nombret,sn); 
EraseRoundRect(r4,5,5); 
PutMsg(sa+",r1); 
for) :« 1 t0 30000 do; 
end:{if} 
if Button and PtinRect(c,rc2} then begin 
nônbrei = nombrei-i, 
if nombrel < 1 hen nombrel := 1; 
NumToString{nombrei sn): 
EraseRect(r1): 
PutMsg(sn+"",r1); 
for] := 1 t030000do; 
end'{if} 
until (button and PtinRect(c,rok)}: 


Ch := 10; 
CV ;ai 0: 
EraseRed(inRect); 


messages, 
rappel, 
end; {saisie_numero} 


Pons en Ce 


procedure sauve _Gfille: 
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{ sauvegarde de tagr'lle en cours sur disque} 
var | : integer; où | de] | 


1 :text 


begin 
rewrite(f, 'grille'+sn), de. 
writeln(f,encours); 
writeln{l, solution}; 
for i := 0 to textinlenglh -1 do 
write(ftextin[i]}: 
writeln(f,"”}; 
for i := © to texlinilength - 1 do 
write{ftextin{i]}; 
dose}; 
end; {sauve_ grille] 


procedure quelle_case; 
{ trouve la case pointée par le curseur } 


Var | : integer. 
c : Pin. 
begin 
for i := 1 10 100do 
begin 
Gelmouse(c}; 
il Plnrect(c.casesli}} then ncase := i; 


end; {quelle_case} 


var C 


end; {bouton} 


{ analyse des conmandes el branchement vais les routines concernées } 


: point: 
delai : ongint, 


begin 


GetMouse(c); 
if PlnRec(c,commande{1]) then begin 
efface; 
rempl_grille; 
sauve_grille: 
end: {if 
if PtinRecl(c,commande{2]) then sauve. grille: 
if PtnRectl(c,commande{3]} then begin 
HideCursor; 
PrOpen: 
PrCtiCatl{iPrEvtCtlIPrEvtAIl,0,0); 
PiCiose; 
ShowCursor; 
end, {if} 
if PlinRect(c,commande[4}) then sortie = true; 
if PlnRect(c,commande[5]) then begin 
if solflag = Uue than 
affiche_solution E 


eke premier 


saisie numero; . 

end: (i} problème 
ch:= 10; est 
c.v:=10; 


procedure Initialise; 
{ initialisation } 


begin 
procedure saisie{myE vent : EventRecord}; , initgral(@thePort}; 
openport(@gporl); 
{ filtre les touctes clavier et affiche dans la grille } PenPat(black): 
BackPat(white); 
begin FrameRect(gPort.porlRect); 
inRect:= gPort.portRect; 
quelle_case:; InsetRect{inRect 1,1); 
ilencours[ncase] <> ‘then EraseRect(inRect}; 
begin TextFont(New York}: 
1 (myevent Message and charcodemask) > 96 1hen myevent message := myevenl.message - 32;  TextSize(9}; 
inkey := char(myevent message and charcodemask}. GetFontinfo{Into}; 
case inkey of initcursor: 

‘AT : begin sortie := false; 
eraseRecl(cases{ncase}}; solilag :=laise; 
PulMsglinkey,cases[ncase]); enCOUrs := "; 
Delete{encours ncase,t); with Info do 
Inseñ{inkey,encours.ncase); begin 
SysBeep(-1}; fasc := ascent: 

end: fdesc = Descent, 
otherwise end; 
sysbeep{t); taillextrect: 
end; {case} sn := "1 
end {if} rappel 
alse sysbeep(2). messages; 
end; {saisie} 


procedure efface; 
{ efface le contenu de la grille } 


var i : integer; 
f:text; 


begin 


lor i := 1 to 100 do 
il (encoursfi] in ['A’.'Z’.a"..'z"]} then encoursli] :='"; 


er, {efface} 


procedure bouton; 


end; {initialise} 


begin {main} 
initialisa; 


repeat 
iGetNexEvent(evetyEvent, myEvent) then 
case myEvent.wlrat of 
MouseDown : bouton: 
KeyDown : begin 
ff (myevent.message and cnarCodeMask) = 9 then solllag := true; 
Saisie{myEvent); 
end: 


end:{case} 
until SORTIE; 


end. 
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Ÿ onnaître instantanément 
l'heure de Vladivostok, 
Phoenix ou — acces- 

à soirement — Paris... 

Tel est le but de cet accessoire de 

bureau écrit en assembleur 68000 

pour l'efficacité mais aussi, 

inutile d'essayer de le dissimuler, 
pour le plaisir. 






Écrire un mode d'emploi de 
fuseaux tiendrait du gag tant son 
usage est ‘transparent’ ; signalons 
seulement que cafetière, tasse, 
lune, téléviseur et autre soleil 
indiquent ce que sont censés faire 
à cette heure — et en gros — vos 
amis de Vancouver ou 
Singapour. 


L'installation de fuseaux dans le 
‘system’ de vos disquettes de 
démarrage est aussi simple que 
pour d'autres accessoires et 
Font/DA Mover fera très bien 
l'affaire. Si vous êtes nouveau 
lecteur de Pom”’s (Bienvenue !), il 
convient de signaler que, comme 
d'habitude, la disquette d'ac- 
compagnement de ce numéro 
contient l'accessoire installé dans 
le système et dans un fichier 
Font/DA Mover. Les ‘sources' 
sont aussi sur ladite disquette 
Mac 32. 


Les virtuoses de l'éditeur de 
ressources vont aussi pouvoir 
s'occuper : les noms de ville ne 
sont pas dans le code maïs dans 
une ressource (DITL -16000 pour 
ne rien vous cacher), il est donc 
possible de remplacer, par 
exemple, Paris par Brest ou 


Bordeaux. “ 


Alain Bohec 


accessoires 


fuseaux horaires 


“oem (4) EE ee 
ZL< ï Kaboul* 
Viadivostok Pen. QE à NAS 
. …, Hong-Kong 1N93POUT Lhassa ser diovsk lles Kerg. 
Adélaïde Perth Djakarta Dacca K hi Téhéran 
os di Moscou 
es) Melbourne 1 Bagdad 
Îles Salomon Æ 
Nouméa . , 
Wellington è 
Auckland 


Anchor age 
Honolulu 


Mascate 





Varsovie 
Paris 
Lisbonne 


Londres 
Alger 
Abidjan 


La Par 
San-Francisco PTS Îles du Cap-Vert 
Papeete > 
Buenos Aires 


# heure moyenne - > La 4B 








Source ‘Fuseaux.Asm’ 





include MacTraps.D 
include CalEqu.D 
iaclude mABcro.Txt 





" + FUSEAUX + * EQUATES 

* heure à travers le monde csCode equ $1a ; control/status code [W) 

* A2 : handle de la liste des points csParam equ $ic : op-defined params {20*B]) 

3 DialogPtr NHeur equ 12 

. A3 : adresse du BitMap du cadran NFus equ 24 

* adresse du handle d’un objet tournant * écarts dans la liste des Points ----——— 
* A4 : sauvegarde du DCEPtr Piv equ 0 spivot 

. D3 : compteurs LAig equ 4 longueurs des aiguilles 

is D4 : pivot Ax equ 8 saxe de rotation 

* PRELIMINAIRES veossecssssssesssee sonore sesrressse Ell equ 12 petit et grand axe ellipse 

* INCLUDES "x 

include QuickEqu.D # XR@f = mm mm mm mm 
include SystEqu.D xRef GrandAig 


include ToolBEqu.D 


xRef PetitAig 
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XxRef GetTime 
XxRef SinCos 
xRef Rotvect90 
EE 
xDef dt 
xDef DERU 
DERU : 
* MOTS D’ENTREE 
FACOMPOLEEMEN TU SERRE er RE ne pos vernis 
dc.W $2400 sctri/actions périodiques 
de.W 3600 toutes les minutes 
dc.W $0040 suniquement évents mise à jour 
dc.W (0 spas de menu 
MÉcArES Vers les Routines = 2 TE 
dc.W DIGORADYR-DERU ; l:ouverture 
dc.W HorolazhEshy-DERU ; prime (unused) 
de. YRZ-—-DERU ;: 2:controle 
de.W HorolazhEshy-DERU ; status (unused) 
de.W KLOZADYR-DERU : 3: fermeture 
LP D ER ER 
talbenn dc.B 0 
dc.B "2 
-ALIGN 2 
* OUVERTURE CEGGCCCRCCECCCCCECECCCECCECCCECECEECCEEEEEE 
DIGORADYR 
à. PRELIMINAIRES soso ostossoessecesssesente ee 00 06 


* 


* 


emp M-L,A2/A4 
moveA.L Al,A4 
Sauvegarde du GrafPtr 


;sauvegarde 
:DCEPtr » registre sûr 


de l’application en cours ---- 


ep L spour le GrafPtr 

emp .L,SP :GrafPtr » pile 

_GetPort sGrafPtr APPL en cours » pile 
_ObscureCursor ;pour faire plus joli 


QUESTION DE LA FENETRE +HH#+#fitttis thé tétfitite 
tst.L  dctlWindow(A4) ;déja fenêtre ? 
bne.W Prenestremeus 
CONSTRUCMONS seche ccssessneess cesse see. ss-ce ses 
si l’on n’a pas de fenêtre, tout est à construire 
COLLECTE DE L’ID DE BASE HHH#HhHh} tft titi tttt 
s:n° de l'Acc 





move dCtlRefNum(A4),D0 

add0 #1,D0 

neg DO ssous-ID Acc 

1s1l #5,D0 

move #$C000,D1 

OI DO0,D1 

emp -W,D1 :1D de base surpile et dans Di 
LISTE DE POINTS +HEEÈHHHHIHIHEEETeR6299223222+1HtHHLHt 





Collecte de la Liste et Placement 
GetRes #'pnt#',D1 





dep A.L,A2 ;handle dans A2 

moveA.L (A2),A0 adresse 

lea Pivot,Al 

move-L Piv(AO), (Al)+ 

move.L Laig(AO), (Al)+ 

move.-L Ax(AO), (Al)+ 

move.L E1ll(A0O), (A1) axes de l’ellipse 
Destruction 

emp .L,A2 

_ReleaseResource 


Si l’on n'a pas déja une fenêtre, +itttttittttiss 
il faut en fabriquer une : 
Placement de l'ID de la Mappemonde 
dans l’Item No 25 

GetRes #'DITL',D1 

dep A.L,AO handle 

moveA.L (A0),AO 

move D1,Wo+NFus * (itmData+By+Wo) +itmData+By (A0) 


Collecte du Dialogue 





ep L spour le DialogPtr 

emp .W,D1 

emp .L,#0 i » heap 

emp .-L,#-1 fenêtre premier plan 
__GetNewDialog ;: fenêtre fabriquée ! 
moveA.L (SP),A2 :DialogPtr » A2 & pile 


@10 


* 


fo DT HE 
_SetPort senlèvement du DialogPtr 
SetFont #geneva, #9 


move.L A2,dctlWindow(A4) :WindowPtr>DCE 
move dctlRefNum(Ad4),WindowKäind(A2)} 
COLLECTE DES IMAGES HE HER EEE EEE EEE EEE HER EEEES 
Cadran 


;: ID principal toujours sur la pile 
dep.W,D1 :1D » D1l, RAN 
GetRes #'bmap',D1 
mouvoO0 L,(SP)+,CadrHndi 
Images Tournantes 


lea ObjTour,Al adresse de stockage 
moveQ #4,D2 compteur 

addQ #1,D1 

ep EL 

emp -W,D1 | ni 
_GetPicture ee 4 
dep .L, (Ai) 

subQ #1,02 LES 
beq.S 628 D 
addA #2*Lo,Al 

bra.s @10 


ÉttEtt 





POSITION INITIALE DE LA LUNE 


@20 


* 


* 


* 


* 


* 


Collecte de l'Horloge Marquant 1h du Matin 
c'est la 23ème, à une congruence prés, 
après l'horloge locale 


bsr.W GetTime 

cie LL DO 

move dt+dtHour,DO 

add #NFus-1l,D0 

divU #NFus,DO 

swap DO :n° de l‘’item de 2h du mat 
TopLeft du rectangle +443 pete 

subA #2*Extd,SP ;Rect/Hndl/type, étendus 

bsr.W GetRect 

move.L Axe,DO 

sub.L DO, TopLeft (SP) 


OpBin Top(SP),VectLun+vv,12Xx 

OpBin Left(SP), VectLun+hh,12x 
Calculs 
sonme des carrès & NOLME + HA ARE RE 

OpBin VectLun+vvu,vv+Lo(SP),x2x 

OpBin VectLon#shh,hh+Lo(SP)}, X2X 





OpBin vv(SP),vv+Lo(SP},mulx 
OpBin hh(SP),hh+Lo (SP),mulx 
OpBin hh(SP),vv+Lo(SP),addx 
pea (SP) 
emp .W,#foSQRT 
_FP68K 
vecteur UNÎTAÎrE ++ de HR RER RER 
pea (SP) 
pea VectLun+vv 
emp .W,#foDiv+ffExt 
‘_FP68K 
pea (SP) 
pea VectLun+hh 
emp .W,#foDiv+ffExt 
__FP68K 
addA #2*pxtd,SP :RAN 


vecteur exact 
OpBin VEIll,VectLun+vv,mull 
OpBin VEILl,VectLun+hh,mullI 


CALCUL eressoossosrnesnesssessssssssnmesesseessssese 


poër avoir les aiguilles de suite 


bsr.W CalAig 
x ACHEVEMENT veoocsoesosesceoresssceesvesesecessesecesese 
Prenestrameus 
Distro 
_SetPort sancien GrafPtr sur la pile 


moveA.L A4,A1l 


dep M.L,A2/A4 srestauration 


HorolazhEshy 
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#0,D0 : return no error 

:Kenavo 

RTS 

" FERMETURE CCCRRRRERRRERERERERERERERRRRERERERERERERER 
KLOZADYR 

* SAUVEGARDES susvereeesensuesevressseeeeseeessuessuseue 


emp M.L,A2/A4 ; Sauvegarde 


moveQ 


moveA.L Al,Ad :DCEPtr 
ep L 
enp .L,SP 
GetPort :GrafPtr en vigueur » pile 


* LIQUIOATIONS resrorsesrossssnesresesenessessesseseee 
emp -L,CadrHndl 


_ReleaseResource 
lea ObjTour,Al 
moveQ #4,D1 compteur 
€0 emp .L, (Al} 
__Relea seResource 
subQ #1,01 
beq.sS 810 
addA #2*Lo,Al 
bra.S eo 
@10 emp .L,dctlWindow(Ag) ;:/pile pour destruc. 
clr.L dctiWindow(A4) :sinon, boum ! 
_DisposDialog splus besoin fenétre 
bra.S Distro ‘on va fermer 


* CONTROLE RRGRRRRRRRRRRRERERERERCERERERECERCECERERERE 
YRZ 
* ROUTINE PRINCIPALE & BRANCHEMENTS °ereeessesesesesvee 
* AO pointe sur le "Device Request Block" et Al 
* sur le DCE 
emp .L,A4 ; sauvegarde 
moveA.L Al,Ad :2CEPtr 
move csCode (A0),D0 :n° requète 
SSi I.W, #accEvent,D0,doCtlEvent événement 
SSi I-W,faccRun,DO,ActMin action périod 


YrzEshy 
moveA.L A4,A1l :DCEPtr, pour JI0Done 
dep A.L,Ad ‘restauration 
moveQ #0,D0 : return no error 
emp .L,j10Done :‘request" traité, saut IODone 
RTS 
* EVENEMENT vosooseoenssssseessesseseersrenseesereeese 
doCtlEvent 
* ROUTINE PRINCIPALE & BRANCHEMENTS eresoseeecssocenee 
emp -L,A2 ; sauvegarde 


moveA.L csParam(AO),AO ssur l'événement 
moveA.L EvtMessage(A0),A2 ;'WindowPtr 
move EvtNum(AO),DO snuméro évènement 
SSI I-W.#updatEvt,D0,MAJ :mise à jour 
CtlEvtDone 
restauration 
YrzEshy 


dep A.L,A2 
bra.S 


MAJ 
* MISE À JOUR soso oosss someone sense eeccceessssse 


*entrée : DialogPtr » A2 
emp .L,A2 
_BeginUpdate 
emp .L,A2 
_DrawDialog 
bsr.W DessAutour 
emp .L,A2 
_Endüpdate 
bra.s CtiEvtDone 


“ ACTION PERIODIQUE cssocssesssosessecesesesesessee sus 
ActMin 
x MECANISME coscocsosssssssosossssesspessesssssesssseseee 


bsr.s CalAig 
bsr.W DessAutour 
bra.S YrzEshy 
* SOUS-ROUTINES RRGCRRRCRRERERRCERERECERERECEREREEEERE 


CalAig 
* CALCUL DES POSITIONS srrsrosresssssesrsssneesssuesss 
* PREPARATIFS +ttttttttttttttttttttttttttttttttittttt 


GetTime 


bsr.W 
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moveA.L dctlWindow(A4},A2 
subA #3*Extd,SP :angle/vecteur 
* POSITION DE BASE ÉÉtttttttitttitttttttttiitttttttit 
® Grande Aiguille ——————_—_—_—_—_—_—_—_—_—_——_—————— 
moveA.L SP,A0 


lea ga, Al adresse du résultat 
move Lga,DO ;longueur 
bsr-W GrandAig 


“ Petite Aiguille 
moveA.L SP,A0 





lea pa,Al :adresse du résultat 
move Lpa,DO :longueur 
bsr.W PetitAig 


* petite aiguille en étendu +444 444 
* multiplication du vecteur unitaire orthogonal 
* par la longueur 


Vcaloul = nn sonne 
pea Lpa 
pea Extd+vv+Lo (SP) 
£Mull 
pea Lpa 
pea Extdthh+Lo (SP} 
fMull 


sreste pa en étendu sur la pile + 1 espace 
* rotation de 90 === —---— 
dessous » dessus 


pea Extd+hh {SP} 
pea Lo(SP) 
£X2X 
smilieu » dessous 
pea Extd+vv(SP) 


pea Extd+hh+Lo(SP) 
£X2X é le 


dessus » milieu 


pea (SP) LES 








pea Extd+vv+Lo (SP) 7 
£X2X 
remplacement par l‘’orthogonal 
move #=1,1(5P) 
pea {SP) 
pea Extdtvv+Lo(SP) 
fMull 
* AUTRES POSITIONS 
# on fait tourner le petite aiguille de pi/6 
* Initialisations 
lea Extd({(SP),A1l ;adr vecteur à tourner 
pea pa ‘place résults int » pile 
move #NHeur-1,D0 ;compteur 
* Boucle 
to lea Sins,A0 ;adr lignes trigo de alfa 


bsr.W RotAlfa 
* transferts He 
moveA.L (SP),A0 
addA #Lo,AO 
move.L AO, (SP) 
OpBin Extdtvv+Lo(SP),w{A0),X2I ;r.sin(d+x) 
OpBin Extd+hh+Lo(SP),h({AO),X2I ;:r.cos{(d+x) 


* fini D + de dd EE 


subQ #1,D0 
bne.W  &@Q 
addA #3*Extd+Lo,SP RAM 


* LUNE & SOLEIL HÉÉÉEEEEEEEREEER EEE SEE EEE + 
* Coordonnées Relatives de la Lune ——— 
sadr lignes trigo de alfa 


lea SinMin,AO 
lea VectLun,Al ;vecteur à faire tourner 
bsr.W RotAlfa 


OpBin VectLuntvv,LunI+v,X21 
OpBin VectLun+hh,Lunl+h,X21 
* Calcul de toutes les Coordonnées Absolues 


lea Lunli,AO 

moveQ 44,D1 scompteur 
@10 move-L (A0),D0 

move D0O,D2 

muls HE11,D2 

divs VEÏ1,D2 
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move D2,D0 
SWAP De 
add Axe+v,DO 
SWAP D9 
add Axe+h,D0 
subO #1,D1 
begq.s @20 c’est fini 
move.L (A0),2*Lo(A0) 
move.L DO,(AO) 
addA #2*Lo,A0 
bsr.W RotVect90 
bra.s 810 
e20 move.L DO, (A0) 
RTS 
DessAutour 


* DESSIN versesrsresssressserrnvesssvereunsveserevenssess 


* CADRANS & AIGUILLES HHHHEHHHE EEE th 
emp M.L,A3-A4/D3-D4 ;: sauvegarde 
* Initialisations 
emp .L,A2 
_SetPort 
moveA.L CadrHndl,A0 


moveA.L (A0),A3 ‘adresse du bmap 





lea BitMapRec (A3),A0 ;adr de la bitimage. 
move.L AO0O,BaseAddr(A3) ;… à la bonne place 
lea pa,Ad :adr dims aiguilles 
move #NFus,D3 scompteur 
move.-L Pivot,D4 spour la translation 
subA #LR+Lo+Wo,SP :Rect/Hndl/type 

* Boucle 

e0 

* collecte du rectangle ++#bbittthhththtddttdpg 
move D3,00 

bsr.W GetRect 


* cadran RL EE 
move.L Topleft(SP),D0O 
add.L Bounds+BotRight(A3),D0 
sub.L Bounds+TopLeft(A3),D0 
move.L DO,BotRight (SP) 


emp .L,A3 
pea Bounds (A3) *SrcRect-BitMapBounds 
pea 2*Lo (SP) #‘destRect 
emp .W,#srcCopy ‘écrase 
emp .L,#0 spas de ClipRgn 
_StdBits 

# Qi ILES + 
add.L D4, (SP) 


Onde AQU ee 
emp .L, (SP) 





__MoveTo 
emp -L,ga 
_Line 
Mipet 1067 Que 
emp -L,#$20002 
_PenSize splus large que grande aiguille 
emp -L, (SP) 
_MoveTo 
emp .L,(A4) 
_Line 
_PenNorma] ‘retour aux dimensions normales 
* Sortie 
subO #1,D03 
beq.S  @20 ssortie 
cmpl.W #NHeur,D3 
bne.s @10 smystère des macros 
lea pa,Ad4 sréintialisation/pa 
bra.sS eo 
@10 addA #Lo,A4 ;cas ordinaire 
bra.s eo 


* LUNE & SOLEIL HÉÉÉEEEEEEEEER EEE EE EEE 


€20 lea ObjTour,A3 
moveQ #4,D3 scompteur 
@30 move.L Lo(A3),TopLleft (SP) 
move.L Lo(A3),BotRight (SP) 


moveA.L (A3),A0 shandle 
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moveA.L (A0),Al ;adresse 


move.L PicFrame+TopLeft(Al}),DO i 
move.L PicFrame+BotRight(Al}),D1 z | 
sub.L DO,D1 . ne 
add.L D1,BotRight(SP) SN 
emp .L,A0 2) 
pea Lo(SP) 
_DrawPicture 
subQ #1,D3 
beq.S 40 
addA #2*Lo,A3 
bra.s @30 
# FINITIONS HÉENÉEEHE ER ENCELÉESÉEEEÉELÉEEEITÉETEEIS 
@4c addA #LR+#Lo+Vo, SP ; RAN 
dep M.L,A3-A4/D3-D4 : restauration 
RTS 
GetRect 


* COLLECTE D’UN RECTANGLE D’ITEM covers eseeceee 
“entrée : au moins 14 octets libres » pile 

* n° de l’item » DO 

*sortie : rectangle au sommet de là pile 

:PC sur la pile 


emp .L,A2 

emp .W,D0 

pea Lo+Wo+Lo+LR+Lo (SP) 

pea Lo+Lo+Wo+Lo+LR (SP) 

pea Lo+Lo+Lo+Wo+Lo (SP) 

_GetDitem ;TepLeft sommet de la pile #fsous PC 
RTS 


RotAlfa 
* ROTATION D'UN VECTEUR DE L'ANGLE ALFA vesesessesssse 
rentrée : adresse de SinCosAlfa » AÙ 


* adresse du vecteur à faire tourner » Al 

*sortie : A0 » sans changement 

* Al » adresse du vecteur transformé 
subA #2*Extd, SP 


OpBin vv(Al}),vv+Lo(SP),X2X 
OpBin hh(Al),hh+Lo(SP),x2X 
OpBin vv(AO),vv(A1l),mulx 
CpBin hh(AO),hh(Al)},mulx 
@pBin hh(AO),vv+Lo(SP),muix 
OpBin vv(A0),hh+Lo(SP),mulx 


:1r.sind.sinx 
sT.-cosd.cosx 
:1.cosd.sinx 
#r.-sind.cosx 


pea hh(SP) 
pea vv+Lo (SP) 
emp .-W,rffEXT+foADD 
_FP68K :1.sin(d+x) » pile 
pea vv(Al) 
pea hh(A1l) 
emp .W,#ffEXT+foSUB 
_FP68K :T.Cos(d+x) » bonne adr 
OpBin vv(SP},vv(Al),X2X ;sin(d+x) » bonne adr 
addA #2*Extd, SP 
RTS 


* DONNEES CGGCCCCCCCCCCCCCECECECECCCCCCCECCCCCCCERCECRE 
zx CONSTANTES Sanson esse 


Sins de.W $3FFE, $8000,$0000,$50000,$0000 
Coss dc.W $3FFE,S$DDB3, $D742,$C265, $539E 
SinMin de.W $3FF7,$8EFA,$1757,$14B7,$0DBF 
CosMin dc.W $S3FFE, SFFFF,$604B,$01C2, $6FBC 


+ RESERVATIONS DE MEMOIRE eorvonerosesseoseneseseenenee 
* TEMPS +ttt 
di dcB.W 10 
* LISDE DE POINTS HÉNEIEÉERS EEE EEE Em tt 





fiche de la date et du temps 


++ 





Pivot dc.L 0 :coin du rectangle » pivot 
EGa dc.W 0 :longueur grandes aiguilles 
Lpa de .W 0 slongueur petites aiguilles 
Axe dc.L 0 

VEIl dc.W 0 ‘petit axe de l'ellipse 
HE]l dc.vl 0 grand axe -"- 


* ROTATION HER ERER ER ENTER HR RER ÉÉEERRÉREEEEEEE 


* Aiguilles & Cadran 





CadrHndl diet 0 ;BitMaphHandle du cadran 
ga dc.L 0 grande äiguille 
pa dc3.L NHeur,0 ;petites aiguilles 


* Autres Objets 
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VectLUn dcB.B 2*Extd, 0 emplacement lune étendu 
Objlour ;sne pas changer l’ordre 


LunHndl dc.L 0 

Lun] dc.L 0 ;emplacement lune en entier 
TassHndl de-L 0 

Tassi dc.L 0 emplacement tasse entier 
SolHndl dc.L 0 

Solï de.L 0 emplacement soleil entier 
TelHndl dc.L ( 

Tell dc.L 0 j;emplacement télé en entier 


FIN 


Fichier ‘mABcro.Txt’ 


+ mABcro * 

L ........ 

Macros Géniales 
nn nm 
yaducalcul equ 0 

* EQUATES eemosrrossossress crosses sssssssemesssteueus 
£0 equ 0 

By equ 1 

Wo equ 4 

Lo equ 4 

LR equ 8 srectangle 

Extd equ 10 slongueur d’un étendu 

vv equ 0 

bh equ 10 spoints en étendu 

LStr eau 256 sphrase 


* DIVERS veosessosseesreeosssesseessessssseresereessse 


* _SetFont_ 
MACRO SetFont fonte,taille = 


MOVE.W {fonte},-(SP) 
_TextFont 
MOVE.W (taille},-(SP) 
_TextSize 
| 

* _P2Couic_ 


*Traite toutes les séquences dans lesquelles avant 
*d’appeler une routine on pousse deux entiers sur 
“la pile (MoveTo,OffSetRect, - } 


MACRO P2£ouic x,y,couic = 


MOVE.W {x},-{(SP) 
MOVE.W {y},-{SP) 
_{coutc} 


| 
* PETITS BOUTS 
MACRO tuu = 
moveM.L AO-A1/D0-D2,-(SP) 
move.W #1,-(SP) 
_SysBeep 
moveM.L (SP}+,A0-A1/D0-D2 
| 
MACRO FIN = 
END 
[ 
MACRO eP L = 
CLR.{L} -({SP) 
| 
MACRO deP f,R = 
MOVE{f} {SP)+,{R} 
Î 
MACRO emP f,R = 
MOVE{f} {R},-(SP) 
[ 
MACRO mouv0O L,D,Addr = 
LEA {Addr },A0 
MOVE.{L} {D}, (AO) 
l 
MACRO mouvl L,D,Addr = 
LEA {Addr},A1 
MOVE.{L} {D}, (A1} 
| 


MACRO Si f,x,y,a = 
CMP{f} {x},{y} 
BEQ {a} 


MACRO SiNorn f,x,y,a = 
CMP{f} {x}, {y} 9 
BNE {a} 
| 
MACRO SSi f,x,y,a = 
CMP{f} {x}, {y} 
BEQ.S {a} 
I 
MACRO SSiNon £,x,y,à = 
CMP{fF {x},{y} 
BNE.S {a} 
l 
L RESSOURCES Snsnresseeeeoerreseeeeerreesreeeeeeeeesee 
* _GetRes_ 
* Macro générale pour la collecte des ressources 


* Paramètres 


MACRO  GetRes TYPE, ID = 
CLR.L (SP) 
MOVE.L (TYPE},-(SP) 
MOVE.W {ID},-{(SP) 
_GetResource 
| 

* _CollRes_ 


* Macro pour la collecte de nombreuses ressources 


*Pour obtenir un handle sur une ressource, on fournit 
*souvent un ID et une instruction telle que 
#GetPlcture retourne un Handle 


MACRO CollRes ID,Genre = 
CLR.L — (SP) 
MOVE.W {ID},-(SP) 
_Get(Genre} 


I 
* _CollPhrase_ 
*Register-stack-based-macro pour les 
*ressources de type STR# 





*Macro permettant la collecte des pointeurs sur les 
phrases d’une liste 

+ (STR#Handle dans À0,No dans la liste dans DO qui 
*sert alssi de compteur) 

#STR Ptr sur la pile. Utilise aussi D1. 


MACRO CollPhrase = 
MOVE.W #2,D1 
MOVEA.L {A0),A0 


sdonne Ptr/phrase 
longueur des phrases 
sadresse » A0 


@100 ADDA.W D1,A0 sptr/phrase dans A0 
MOVE.B ({A0).D1 long phrase dans D1 
ADDQ.W #1,D1 scause octet longueur 
SUBQ.W #1,D0 sdécrèment du compteur 
BNE.S @100 sarrlvé bonne phrase 


MOVE.L AO,-(SP) 
| 
Noos nee eue eseeeeeesereesreeereeeereneses 
1F yaducalcul 
# CALCUL erossrosoressresescsoreseseeeseneeosresessese 
* macros les plus utilisées de SANE 
* MACROS OFFICIELLES 





MACRO fX2X = ;étendu->étendu 
MOVE.W 3rrEXT+FOZ2X,-{(SP) 
_FP68K 

(l 

MACRO fX21 = ;étendu->entler 
MOVE.W #FFINT+FOX2Z,-(SP) 
_FP68K 

| 

MACRO fI2X = j;entier->étendu 
MOVE.W #FFINT+FOZ2X,-(SP) 
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_FP68K 
! 








MACRO fmulI = ;multiplication par un entier 
MOVE.W #FFINT+FOMUË, - (SP) 
_FP68K 
| 
MACRO fMulX = ;Multiplication par un étendu 
move #ffEXT+foMUL, —- (SP) 
_FP68K 
| 
MACRO faddX = ;addition d’un étendu 
MOVE.W #FFEXT+FOADD, - (SP) 
_FP68K 
| 
MACRO faddS = addition d'un single 
MOVE.W #FFSGL+4FOADD,-(SP) 
_FP68K 
| 
MACRO fmulS =» multiplication par un singie 
MOVE.W  #FFSGL+FOMUL, - (SP) 
_FP6BK 
MACRO fdivI = ;division par un entier 
MOVE.W #FFINT+FODIV,-(SP) 
_FP68K 
MACRO freml = sentier 
MOVE.W #FFINT+FOREM, - (SP) 
_FP68K 
MACRO £COSx = ;cosinus 
MOVE.W #FOCOSX,-(SP) 
_Elems68K 
l 
MACRO fSINx = ;sinus 
MOVE.W #FOSINX, - (SP) 
_Elems68K 
Î 
*22 PERSO 


ANODÉTA ON DIN LE == PS ee 


PEA 





*De nombreuses opérations du SANE utilisent deux 
*arguments et un code d’opération. La macro 
*ci-dessous reproduit la forme générale 

*de la suit d’instructions correspondante. 


MACRO OpBin A,B,0p = 


{A} 
{B) 


ENDIF 


É mn m nm nnm nm mmmnnnnnmenne 


FIN 


Fichier ‘CalEqu.Txt 








word. 

* LRRRREL ELLE LLZ) EU Ce 

* + CalEqu.Txt * fBINVALID equ 0 ; invalid operation 

* ssssssssnss. fBUfLON equ 1 ; underflow 

ji f30fLOW equ 2 ; overflow 

+ Les equates ci-dessous font partie du fBDivZER equ 3 ; Division by zero 

* “Standard Apple Numeric Environment" (SANE) fBINEXACT equ 4 ; inexact 

* décrit dans l’"“Apple Numerics Manual" fBRNDLO equ S ; low bit of rounding 

* inclus dans “Inside Macintosh". fBRNDHI equ 6 ; high bit of rounding 

PR TRE TT EN PI PV EST FER fBLSTRND equ 7 ; last round result bit 

* extraits de SANEMacs.Txt le 24 Juin 87 fBDBL equ 5 ; double precision control 

* condensé ? fBSGL equ 6 ; single precision control 

Fee een eee eee eee eme eee eee see ss sense esse FENUMÉLOS des EONEiOn Se Re 

honnnnnnnnnn nn nn foLNX equ $0000 ‘logarithme néperien 

* NUMEROS DES OPERATIONS foLOG2X equ $0002 logarithme de base 2 

foADD eq 0 sAddition foLN1x eau $0004 :Lg(1+x) 

foSUB equ è zsoustraction ; 

foMUL equ 4 ;Multiplication Suite page Sd. Fe 
Lu — 


Division 

compare 

compare 

sremainder 
;->étendu 

sétendu—-> 

‘racine carrée 
‘round to integral 
struncate to integral 
sbirnary scale 
logarithme base 2 
sclassify 


sset environment 
get environment 
sset halt vector 
sget halt vector 
sdécimal->binaire 
sbinaire->décimal 
negate 

:valeur absolue 
copy sign 
next-after 

set exception 
procedure entry 
procedure exit 
test exception 


ee ve ne ee 


foDIV equ 6 
£oCMP equ 8 
£oCPx equ 10 
foREM equ 12 
£o22X equ 14 
fox2z eq 16 
foSORT equ 18 
foRTI equ 20 
foTTE equ 22 
FoSCALB equ 24 
foLOGB equ 26 
foCLASS equ 28 

: UNDEFINED equ 30 
ÉfOSETENV equ 1 
£oGETENV equ 3 
foSETHV equ 5 
£OSETHV equ 7 
foD2B equ L] 
fcB2D equ LE 
FONEG equ 13 
foABS equ is 
foCDYSGN eau 17 
£ONEXT equ 19 
foSETXCP equ 24 
FOPROCENTRY equ 23 
FoPROCEXIT equ 29 
FOTESTXCP equ PAU 

: UNDEFINED eqv 28 

; UNDEFINED equ 31 

* NUMEROS DES FORMATS D'’OPERANDES 
ffEXT equ $0000 
ffDBL equ $0800 
ffSGL equ $1000 
f£INT equ $2000 
f£fLNG equ $2800 
ffcOMP equ $3000 


* Precision code masks: forces a floating point 
to be coerced to the range and 


* outout value 
* precision specified. 





fcSNAN 
fcONAN 
fcINf 
fc2ERO 
fcNORM 
fcDENORM 


$0000 étendu 

$4000 double 

$8000 single 

À ; signaling NAN 
2 ; quiet NAN 

3) % inflnity 

4 ; zero 

S ;: normal number 
6 ; 


denormal number 
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fi 





rthogiciel Plus de 
Larousse est une 
nouvelle version du 
correcteur orthogra- 
phique pour Macintosh. Elle 
intègre de nouvelles possibilités 
telle la correction de documents 
‘entiers’ sauvegardés par 
MacWrite 4.5 et 2.0. 





Orthogiciel 


Il est livré sur deux disquettes 
contenues dans un petit classeur 
mode d'emploi bien présenté. Pas 
de difficultés de mise en route, 
peu de contraintes d'installation, 
aucun problème de mise en place 
sur disque dur. 


Le principe retenu pour la 
correction est le suivant : un 
document a été sauvegardé par 
MacWrite 4.5 ou 2.0 (ou par tout 
autre traitement de textes en 
format ‘texte seul’) ; 


- lancer Orthogiciel, 
- ouvrir le document, 
- demander la vérification. 


Orthogiciel s'arrête sur chaque 
mot posant un problème et 
propose de le maintenir en l'état, 
de le corriger, de consulter le 
dictionnaire avant correction. 


& ftichibrs Uérification Dptions Dictiannaires Boîte a outils 





À l'usage 


Le dictionnaire sur disquette ne 
comprend pas tout le petit 
Larousse mais 150 000 fonnes ce 
qui est beaucoup pour une 
disquette mais pas trop pour le 
français. 


La grammaire 


Orthogiciel est un correcteur 
orthographique et à ce titre, il 
laisse de côté les erreurs de 
syntaxe et fautes d'accord. On 
pourra écrire «nOUS avez» sans 
émouvoir le programme (déceler 
ce type de faute est d'une 
difficulté sans commune mesure 
avec la comparaison à un 
dictionnaire, même de 150 000 
mots). 


Le mode d'emploi, pour 
compenser cette restriction 
propose un guide d'orthographe 
qui aide à ne pas accorder «elle 
s'est complu» et à accorder «elle 
s'est abstenue» par exemple. 

Le programme propose aussi une 
aide à la conjugaison des verbes 
qui connaît les formes défectives 
éventuelles, les doubles forines et 
les participes invariables (du type 
succédé). 


Le dictionnaire 


Surtout incomplet, le petit 


= Doté de lo fonction ‘renvoyer’, sorte de copier/caller, 


2 Orthogiciel est souple d'emploi. 


Il est assez rapide et même très rapide en considérant l'impor- 


tance de la recherche. 
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Larousse ne permet pas de 
satisfaire les besoins de chacun. 
Orthogiciel perinet de définir un 
ou plusieurs dictionnaires 
utilisateur pour y inclure le jargon 
de telle ou telle profession. 
Chaque dictionnaire additionnel 
peut contenir 500 mots et on ne 
peut utiliser qu'un seul de ces 
dictionnaires à la fois. 


Et les accents ? 


Orthogiciel, bien que conçu pour 
le Macintosh se plante 
systématiquement si la zélée 
secrétaire prend le soin d'écrire 
«Etats-Unis, œuvre, Œuf, Atre» 
au lieu de «Etats-Unis, oeuvre, 
Oeuf, Atre». 

Idem pour les ligatures fi et fi : le 
programme préfère nettement 
«fichier» à «fichier». C'est bien 
regrettable car, bien utilisé, le 
Mac produit une typographie de 
qualité douée de Ç et autres O. 
«Ça marche !» ne marche 
justement pas. 


Mots défectifs 


Tout le français ne tient pas sur 
un disque et le choix n'a pas dû 
être aisé. Toutefois, des mots 
d'usage fréquent manquent à 
l'appel : 

logo, convivial, décodeur, 
positionnement, picots, réutilisé. 


Le programme s'arrête également 
sur surnatalité, numérisée, 
crénage, enfiche, occlusives, 
salvateur, compilez.…. 


Générer est bien dans le 
dictionnaire Orthogiciel mais les 
formes conjuguées généré, 
génère, générant ne sont pas 
reconnues. 


Plus curieuse est la scission 
aléatoire de certains mots 
procédures, position, caractères 
sont parfois reconnus comme 
pro, cédures, po, sition, ca, 
ractères.. d'où arrêts fréquents et 
inutiles de la vérification. 
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En cas de césure avec trait d'u- 
nion comme ci-dessus, le mot 
union n'est pas reconnu, mais 
gêne est minime, 


À l'usage 


Doté de la fonction ‘renvoyer’, 
sorte de copier/coller, Orthogiciel 
est souple d'emploi. Un menu 
propose l'aide à la conjugaison, 
un générateur de pluriel et l'aide à 
la correction par une recherche 
simplifiée dans le dictionnaire. 

Il est assez rapide et même très 
rapide en considérant l'impor- 
tance de la recherche. 


Le défaut le plus pénible à 
supporter apparaît lors de la 
détection d'une faute : 

une fenêtre s'affiche, avec un 
extrait de la phrase, Ie mot en 
cause. et neuf boutons sde 
contrôle. Le drame est que cette 
fenêtre disparaît et réapparraît à 
chaque détection d'où un fatigue 
visuelle dès la Sème faute et la 
migraine à la 10ème. Pourquoi ne 
pas avoir opté pour deux 
fenêtres, en haut et.én bas de 
l'écran, affichées simultanément ? 


æ fichiers Uérification Dptions Dictiannahes Haife a autits 


EE CONSULTATION 


+ Dictionnaire LARQUSSE Copyfight 


: |gouge 

= |qouges 

+ [goujat 

à |goujaterie 
goujateries 
goujats 

 |goujon 

# | gou jonner 

. gou jons 


Le confort y aurait gagné. À noter 
que les fenêtres sont dotées de 
barres de déplacement alors 
qu'on ne peut les déplacer. 


En conclusion 


Des bons points : le prix, la 
rapidité, l'efficacité, la possibilité 
de l'installer sur disque dur : la 
disquette originale n'est 
demandée que de temps en 
temps. 


être 


foLOG21X equ $0006 s10g2 (1+x) 

fOEXPX equ $0008 ;exponentielle de base e 
foEXP2X equ $000A ;exponentielle de base 2? 
foEXP1x equ $000c rexp(x)-1 

foEXP21X equ $000r zexp2(x)-31 

foXPWRI equ $8010 ;exponentiation entière 
foXPWRY equ $8012 :exponentiation générale 
foCOMPOUND equ $c014 ; compound 

fOANNUITY equ $co16 sannuity 

foSINX equ $0018 :sinus 

foCosx equ $O001A scosinus 

foTANX equ $oo1c stangente 

fOATANX equ $SO0IE sArctangente 

ÉoRANDX equ $0020 snombre aléatoire 
gg 
: NaN codes. 

NANSORT equ L 

NANAdd equ 2 

NANDiv equ 4 

NANMul equ 8 

NANREM equ 9 

NANASCBIN equ ju 

NANCOMP equ 20 

NANZERO equ 24 

NANTRIG equ 33 

NANINVTRIG equ 34 

NANLOG equ 36 

NANPOWER equ 37 

NAN£INAN equ 38 ’ 

NANINIT eau 255 .. suite de la page 52 





Renvoyer | 


Consultation 





Des points noirs : cette fenêtre qui 
‘flashe’, les æœ E et autres O 
ignorés, de petits défauts de 
fonctionnement, l'impossibilité 
de faire accepter ‘CP/M' même à 
l'aide du dictionnaire utilisateur 
du fait du ‘/. 


Orthogiciel reste toutefois 
irremplaçable pour des fautes du 
type «programmme» qui peuvent 
échapper à la relecture la plus 


attentive. 


STRUCTUREXPERT"” 


La solution pour programmer de manière 
structurée en MSBASICTM et ZBASICTMA. 
STRUCTUREXPERTM vous permet de 
disposer d'un ensemble d'analyses qui 
peuvent 
“scrollables"), 
fichiers, ou imprimées : 

Arborescence complète (descendante 

et ascendante) des appels GOSUB et 

CALL. 

Listes triées sur plusieurs types de 


visualisées (fenêtres 
sauvées séparément sur 


critères des GOSUB et des CALL. 
Statistiques : fréquence d'appel de 
chaque routine. 

Détection d'erreurs logiques (boucles 
non contrôlées, récursivité illégale, 
labels et routines non utilisés). 


STRUCTUREXPERTM 495 F TTC + 20 F de port 
Paiement par CB ou chèques adressés à 
Q.S.F — 149, rue Oberkampf — 75011 PARIS 
Tél, : (1} 42 49 37 95 
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Programme 
COPY 


Après avoir saisi ce code seus 


moniteur, 


Dar : 


BSAVE C@PY, 


6000:AD 


6008 


6010: 
6018: 
6020: 


:BE 
60 
4C 

A8 


6028:29 


6030 


6038: 


6040 
6048 


6060 


6068: 


6070 
6078 


6080: 
6088: 
6090: 
6098: 
60A0: 
60A8: 
60B0O: 
6088: 


60C0 


60C8: 
60D0: 
60D8: 
60E0: 
60E8: 
60F0: 
60F8: 
6100: 


6108 


6110: 


6118 


6120: 
6128: 
6130: 
6138: 
6140: 
6148: 
6 150% 


:48 
BF 
‘AA 


é ED) 
6050: 
6058: 


68D 
3B 
Htc! 
FO 
‘02 
us 


D8 
:A4 


201 


A$6000,L$A08 


BE 
61 
F5 
BE 
BA 
A8 
4A 
58 
D0 
BE 
BE 
00 
A2 
20 
28 
B1 
3A 
02 
G9 
3A 
E6 
E6 
88 
00 
O1 
00 
00 
00 
00 
00 
00 
00 
06 
AD 
8c 
06 
61 
65 
88 
AD 
BE 
BE 
BE 


8D 
61 
BE 
68D 
60 
B9 
42 
BF 
E0 
8D 


62 
A9 
C9 
08 
8A 
BB 
A8 
68 
AD 
FB 
FA 
3A 
A0 
F8 
3A 
E9 
05 
3A 
B@ 
00 
E6 
A9 
E6 
40 
00 
00 
00 
00 
00 
00 
00 
00 
6C 
BE 
65 
A0 
6C 
28 
8c 
61 
51 
5 
60 


61 
04 
OC 
BE 
48 
60 
8A 
A8 
BA 
BE 
A9 
20 
KE 
A4 
(ee) 
00 
E9 
38 
05 
C8 
FA 
6B 
DO 
20 
00 
00 
00 
00 
00 
00 
00 
00 
BE 
85 
A2 
DO 
65 
E8 
22 
AC 
BE 
BE 
38 


AD 
8D 
DO 
85 
98 
AA 
19 
C8 
60 
A9 
61 
62 
Ai 
2F 
BF 
DO 


vous le sauvegarderez 


C9 
:BE 


69 
BE 
FO 

6C 
8c 
BE 

73 

65 
06 
2h 
BE 
A0 
20 

65 

05 
E8 

07 
20 
BF 
92 
8E 
20 
8D 
BE 
49 
8D 
A0 
AD 

65 
B2 
A9 
8D 

65 

66 
FO 
07 
CE 
BE 

65 

65 
B5 

65 

62 

8D 
AD 
8D 

65 
65 
6D 
68A 

98 
00 


68D 






e programme ajoute 
une commande 
COPY à ProDOS. 
En effet cette 
commande non 
implantée d'origine lui fait 
cruellement défaut car il faut 
avouer qu'il est plus pratique de 
donner un ordre directement au 
clavier plutôt que sortir son 
copieur favori. 


Cette commande servira pour 
recopier un fichier texte 
volumineux d'un disque à un 
autre par exemple. 


Mode d'emploi 


Cette nouvelle commande est 
disponible au clavier ou par 
programme après avoir tapé : 
BRUN COPYOU 
- COPY 


sous ProDOS exclusivement. 


La syntaxe de la connnande est la 

même que celle des autres 

commandes ProDOS, à savoir : 
COPY cheminl, chemin? 


Chemin1 est le chemin d'accès 
(pathname) du fichier source, 
chemin? celui du fichier de 
destination, par exemple : 


COPY /bureau/dessier/ 
client,/archive/client 


Si le nom du volume est omis, le 
progranune prendra le lecteur par 
défaut, c'est à dire celui que 
ProDOS utilise quand on tape 
CATALOG. 


Cette commande externe permet 
la copie de tous types de fichiers 
(system, text, AppleWorks, 
binaires, commande...) mais ne 
peut copier des volumes. Ainsi, 
l'ordre : 


COPY /DISQUE/, /RAMS/ 
est invalide. 


Si l'utilisateur ne possède qu'un 
lecteur de disquettes, il devra 
utiliser l'éventuel disque virtuel 


comme tampon. 
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62F68:65 8E Al 65 8C A2 65 20 6520: 66 AD 08 67 AD 44 67 AD 6748:AD E3 El F4 El EC EF E7 











6300:52 64 AD 60 65 CD B7 65 6528:5F 67 AD 7Fr 67 AD AF 67 6750:F5 E5 A0 E9 EE E5 F8 E9 
6308:90 10 AD 5F 65 CD B6 65 6530:AD C7 67 AD E9 67 AD 0B 6758;:Æ#3l F4 "El" EE H4"AE" 00 CC 
6310:90 O8 AD 5E 65 CD B5 65 6536:68 AD 368 68 AD 68 66 AD 6760:E5 A0 F6 EF EC F5 ED E5 
6318:F0 03 4C 99 62 20 3B 63 6540:68A 68 AD B9 68 AD D4 68 6768:A0 EE A7 E5 F3 F4 AO FO 
6320:AD 6E BE AC 6F BE 6D 64 6548:AD F1 68 AD OD 69 AD 2C 6770:E1 F3 AO E4 E9 F3 FO EF 
6328:65 8C 85 65 A2 04 BD 73 6550:69 AD 59 69 AD 8B 69 AD 6778:EE E9 E2 EC ES AE 00 CC 
6330765 9D 85 65 (CA DO"E7 20 6558:BE 69 AD E5 69 O0 00 00 6780:E5 A0 E6 E9 E3 E8 E9 E5 
6338:91 64 60 AD A6 65 8D C3 6560:00 00 00 00 00 00 00 00 6788:F2 A0 EE A7 ES5 F3 F4 A0 
6340:65 20 5B 64 AD 9E 65 8D 6568:00 00 00 00 04 43 4F 50 6790:F0 El F3 A0 E4 El EE F3 
6348:C3 65 20 5B 64 AD 64 65 6570:59 OA 00 00 00 O0 00 00 6V98:AO0LEC 425 A0 E3'E1 F4 El 
6350:AC 65 65 85 73 84 74 AD 6578:00 00 00 00 00 00 00 00 67A0:EC EF E7 F5 ES AO E4 E5 
6358:68 65 AC 69 65 85 06 84 6580:00 00 00 07 00 00 00 00 67A8:ED El EE E4 FB AE 00 CC 
6360:07 60 A9 0] 20 9A 64 AO 6586:00 00 00 00 00 00 00 00 67B0:£5 AO E6 E9 E3 E8 E9 ES5 
6368:00 8D BB 65 68C BA 65 68D 6590:00 07 00 00 00 00 00 00 67B8:F2 A0 E5 F8 E9 F3 F4 ES 
6370:BE 65 8C BD 65 6D 2A 64 6598:00 00 00 00 00 04 00 00 67C0:A0 E4 FB EA CO AE 00 DO 
6378:8C 29 64 20 76 64 20 28 65A0:00 00 00 00 00 04 00 00 67CB:E1 F3 A0 El F3 F3 E5 FA 
6380:64 FO 01 60 AD 3C BE OA 65A8:00 00 00 00 00 03 00 00 67D0:A0 E4 E5 AO F0 EC El E3 
6388:0A 0A OA OA AA AC 3D BE 65B0:00 00 00 02 00 00 00 00 67D68:E5 A0 F3 F5 F2 A0 E3 E5 
6390:88 98 4A BA 6A 6D B9 65 65B8:02 00 00 00 01 O0 00 01 67180 AOMP6GMEFNEC E5 ED ES5 A£ 
6398:20 7F 64 A5 06 18 69 01 65C0:00 00 01 00 8D AO C3 EF 67E8:00 CC E5 A0 E3 El F4 El 
63A0:85 3C A5 07 69 00 85 3D 65C8:E4 E5 AO A4 00 O1 04 25 67F0:EC EF E7 F5 E5 AO FO F2 
63A8:A0 00 B1 06 38 65 06 85 65D0:27 28 2B 2E 40 42 43 44 67F6:E9 E£ E3 E9" F0: El" EC A0 
63B0:3E A5 07 69 00 85 3F 20 65D8:45 46 47 48 49 4A 4B 4C 6800:E5 F3 F4 AO FO EC ES E9 
63B8:28 64 18 69 03 18 65 06 65E0:4D 4E 50 51 52 535556 6B808:EE AE 00 CC ES AO CD CC 
63C0:85 42 AS 07 69 00 85 43 65E8:57  5A CDVEl" F5 TRONEURR 6810:C9 AO E5 F3 F4 A0 F4 F2 
63C8:A5 3E 38 E5 3C A6 C8 88 65F0:F3 A0 E3 EF E4 E5 A0 E4 6618:EF FO A0 El EE E3 E9 ES 
63D0:B1 3C 91 42 CO 00 DO F7 65F8:E5 A0 E6 EF EE E3 F4  E9 6820°5E"A0 E0 EF E5/ F2: A0 EC 
63D6:AD BA 65 18 69 O1 85 3C 6600:EF EE A0 E4 F5 A0 CD CC GBABAES F2 E5 A0 E3 E5VA0 E6 
63E0:AD 88 65 69 00 85 3D 20 6608:C9 AE 00 CE EF ED E2 F2 6830:E9 E3 E8 E9 ES F2 AE 00 
63E8:26 64 38 6D BA 65 689 3E 6610:E5 AO E4 ES5 AO FO El F2 6498:03 ES A0 D0 KF24ÆEF C4 CF 
63F0:AD BB 65 69 00 85 3F A5 6618:E1 ED FD F4 F2 E5 F3 A0 6840:D3 A0 EE E5 AO F0 ES F5 
63F6:06 18 69 O2 85 42 AS 07 6620:E9 BE EMMEPNEZ FERET ES 6848:F4 AO F5 F4 E9 EC E9 F3 
6400:69 00 85 43 20 2C FE A0 6628:F4 AÀ£ 00 D4 El E2 EC E5 6850:E5 F2 AO E3 E5 A0 F4 F9 
6408:00 B1 06 8D 13 64 20 28 6630:A0 E4 E5 A0 F6 ES E3 F4 6856:F0 E5 AO E4 E5 AO F3 F4 
6410:64 18 69 00 69 02 91 06 6638:E5 F5 F2 F3 A0 E4 A7 E9 6860:EF E3 EB El E7 ES AE 00 
6418:C8 A9 AF 91 06 20 28 64 6640:EE F4 E5 F2 F2 F5 FO F4 6868:CC El AO E6 E9 EE AO E4 
6420:18 69 O2 AG A9 AF 91 06 6648:E9 EF EE AO F0 EC ES E9 6870:F5 A0 E6 E9 E3 EB8 EN ES5 
6428:AD FF FF 29 0F 60 20 00 6650:EE E5 AE 00 C5 F2 F2 E5 66768:F2 A0 El AO FB F4 FB A0 
6430:BF C4 71 65 BO 6A 60 20 6658:F5 F2 A0 E4 A7 ES EE F4 6880:E1 F4 F4 ES E9 EE F4 E5 
64368:00 BF 82 00 00 BO 61 60 6660:F2 FB ES AF F3 EF F2 F4 66888:AE 00 CF EE AO EE E5 AO 
6440:20 00 BF CO 91 65 BC 58 6668:E9 ES AE 00 DO El F3 AO 6890:F0 ES F5 F4 AO El EC EC 
6448:60 20 00 BF C8 AD 65 B0 6670:E4 ES A0 F0 FB/F2,E9 FÛ 6898:E5 F2 AO El F5 A0 E4 E5 
6450:4F 60 20 00 BF CB 9D 65 6678:E8 FB F2 E9 F1 F5 E5 A0 68A0:EC CO A0 E4 ES AO EC El 
6458:BO 46 60 20 00 BF CC C2 6680:E3 EF EEEE ES E3 F4 FB 68A8:A0 E6 E9 EE AO E4 F5 AO 
6460:65 BO 3D 60 20 O0 BF D1 6688:AE 00 C4 E9 F3 F1 F5 ES 68B0:E6 E9 E3 E6 E9 E5 F2 AE 
6468:B3 65 B0O 34 60 20 00 BF 6690:A0 FO F2 EF F4 FB E7 FB 68B8:00 CC ES A0 E6 E9 E3 E8 
6470:CA A5 65 BO 2B 60 20 00 6698:A0 CO AO EC A7 FB E3 F2 68C0:E9 ES F2 AO ES F3 F4 A0 
6478:BF C7 BC 65 BO 22 60 20 66A0:E9 F4 F5 F2 E5 AE (00 CC 68C8:F6 E5 F2 F2 EF F5 ES EC 
6480:00 BF C5 B8 65 BO 19 60 66A8:E1 A0 E4 E9 F3 F1 F5 E5 68D0:EC FB AE 00 CC E5 A0 E6 
6488:20 00 BF Cl &F 65 BO 10 66B0:F4 F4 E5 AO El AO FB F4 68D8:E9 E3 E8 E9 E5 F2 AO ES5 
6490:60 20 00 BF C3 83 65 BO 66B8:FB A0 E3 E8 El EE E7 FB 68E0:F3 F4 AO F2 ES F3 F4 FB 
6498:07 60 20 F5 BE BO 01 60 66C0:E5 AE 00 CC E1i AO F3 F9 68E8:A0 EF F5 F6 ES F2 F4 AE 
64A0:48 C9 48 DO 12 AD 92 65 66C8:EE F4 El F8 E5 AO E4 F5 68F0:00 CC ES AO E3 El F4 E1 
64A8:AC 93 65 8D CO 65 8C C1 66D0:A0 EE EF ED AO E5 F3 F4 68F8:EC EF E7 F5 E5 A0 ES F3 
64B0:65 20 3B 63 20 88 64 AD 66D6:A0) E9 EE E3 EM F2 F2, E7 6900:F4 A0 E5 EE E4 EF ED ED 
64B6:C4 65 AD B8 64 AC B9 64 66E0:E3 F4 E5 AE 00 C9 EC A0 6908:E1 E7 FB AE 00 CC E5 A0 
64C0:20 3A DB 68 48 20 DA FD 66E68:F9 AO El A0 E4 FB EA El 6910:E4 E9 F3 F1 F5 E5 A0 EE 
64C8:A9 AO 20 ED FD A9 BA 20 66F0:A0 E8 F5 E9 F4 AO E6 E9 6916:A7 E5 F3 F4 A0 FO El F3 
64D0:ED FD A9 AO 20 ED FD 68 É6FS:ES ES EN ES, F2 F3 A0 EP 6920:A0 E5 EE AO DO F2 EF C4 
64D8:A2 1C DD CD 65 FO 03 CA 6700:F5 F6 E5 F2 F4 F3 AE 00 6928:CF D3 AE 00 D5 EE AO E4 
64E0:D0 F8 BA 8D E9 64 OA 18 6708:C3 E5 A0 EE F5 ED FB Fa 6930:ES5 F3 AO FO E1 F2 E1 ED 
64E8:69 00 AÀ EB BD 06 65 E8 6710:EF AO E4 E5 AO F2 FB E6 6938:FD F4 F2 E5 F3 AO E4 E5 
64F0:BC 06 65 20 3A DB A9 07 6718:FB F2 E5 EE E3 E5 AOEE 6940:A0 EC El A0 F4 El E2 EC 
64F8:20 ED FD A9 8D 20 ED FD 6720%A7 ES F3 F4 AO FO E1 E3 6948:E5 AO ES F3 F4 AO E9 EE 
6500:20 4D 63 4C DO 03 AD EA 6728:A0 E3 ES EC F5 E9 AO E4 6950:E3 EF F2 F2 ES E3 F4 ÀE 
6508:65 AD 08 66 AD 2B 66 AD 6730:A7 F5 EE A0 E6 E9 E3 EG 6958:00 DO F2EF C4 CF D3 A0 
6510:54 66 AD 6C 66 AD BA 66 6738:E9 ES E2 AOVEF F5 E6 ES 6960:EE ES A0 FO ES F5 F4 AO 


6518:AD A7 66 AD C3 66 AD E5 6740;F2\F4 AE 00 D3 EF F5°F3 6968:E7 E5 F2 E5 F2 A0 Fi F5 
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6970:E5 A0 E8 F5 E9 F4 AO EC 69A8:A0 CO AO EC A7 E5 EE Ed 69E0:FS ES F3 AE 00 CC El AO 
6978:25 E3 F4 E5 F5 F2 F3 A0 69B0:F2 EF E9 F4 AO E4 FB F3 69E8:E3 El F2 F4 ES AO E4 ES 
6980:C0 AO EC El AO E6 EF E9 69B8:E9 E7 EE FB 4 00 C9 EC 69F0:F3 AO E2 EC EF E3 F3 AO 
6388:F3 4 00 CC ES AO E2 F5 69C0:A0 FS AO Ei AO E4 E5 F5 69F8:E5 F3 F4 AO ES EE Ed EF 
6990:E6 E6 ES F2 AO EE E5 A0 69C8:F8 AO EE EF ED F3 AO E4 6A00C:ED ED Ei E7 FB E5 AE 00 
6998:F0 E5 F5 F4 AO F3 A7 E9 69D0:E5 AO F6 EF EC F5 ED ES5 
69A0:ED FO EC E1 EE F4 E5 F2 69D8:A0 E9 Ed E5 EE F4 E9 Fi 
STA  OLDCMD+2 JSR  INSDSP2 INY 
Sour ce COP . S LDA  EXTRNCMD LDY LENGTH UMP TEST 
STA  OLDCMD+1 CY  E£2 
Assembleur Merlin Pro RME de 
LDA £>PFIN-DEBUT+SPS" LDA  {PCL},Y DEY 
LÉLLELELLE) STA NBPAGES CM £$8r STY  XLEN 
* JSR GETBUFR BNE  NOMLI MIENNEL LDA  CoPr 
* Copie de fichiers ProDOS CMP  £f$0c DEY LDA  MIENNEI+I 
* BNE  GOTHEM LDA (PCL},Y LDY  MIENNEI+2 
* Frédéric Rozay / juillet-aout 87 JMP  ERROUT CMP  £0 STA  ATERNABDR 
. BNE  NOMLI STY  XTERNADDR+1 
nn GOTHEM STA EXTRNCMD+ DEY LDA £0 | 
STA  ADRs1 LDA  (PCL),Y STA  XCNUN | 
LST OFF TAY LOY ES STA  PBITS+1 
LDX  NBPAGES CMP £S20 LDA  £3 
BUFF'ER = sé B£Q  RMLI STA PBITS 
A1 = $3c note les pages utilisées NOMLI LDYe L2 CIC 
A2 - $3E pour abaisser Himer RMLI LDA  (PCL),Y RTS 
A4 - $42 MARKUSED TXA SEC 
PHA SBC £>DEBUT PASNIEN SEC 
START - $6000 TYA BCC  RTRANS LOA  OIDBUFF 
DEBSUT = START+$100 PHA CMP  E>PFIN-DEBUT+$FF LDY  OLDBUFF+1 
AND £7 CS RTRANS STA  BUFFER 
LENGTH = $2F TAY ADC  EXTRNCND+1 STY  BUFFER:I 
PCL - S3A LDA  BIT.MASK,Y STA  (PCL),Y OLDCMD © JMP  S$SFFFF 
HIMEM = $73 TAX 
SA RTRANS LOX #0 onnnrsses 
ADR — $FA PHA INY È 
LSR RBOUC LE LDA (PCL,X) * Initialisation pour la copie 
WARM = $3D0 LSR STA  (ADR,X) d 
LSR INC PCL LALLLLLLLE)] 
EXTRNCMD = $8E07 TAY INC  ACR 
ERROUT = $BE09 TXA BNE  NOCARRY deux pathnanes nécessaires 
DEFSIT = $BE3C Us /e ORA  BITMAE,Y INC PCL4I coPr LDA  FBITS 
DEFDRV = $BE3D STA  BIIMAE,Y INC ADR#1 AND £3 
XTERNADER = $BE50 PLA LDA  £>PFIN+SEF CMP £3 
XLEN = $BE52 f / e+ TAYX CMP  PCL+i BEQ  GOODBOY 
XCNUM - $BE53 INY 8£20  RFIN 
PBITS - $BES54 " / E ELA NOCARRY DEY LOA  £$ID 
FBITS - $BE56 TAX BMI  RTRANS JMP  ERROUT 
VPATHI = $BE6C 1[g S DEX BNE  RBOUCIE 
VPATRZ = $BE6E BNE  MARKUSED BEQ  RELOGE GOODBOY LDA  VPATHI 
HIMMSB = $BEFB LDY  VPATHI+1 
GETBUFR = $BEFS LDA  NBPAGES RFIN RTS STA  PARWGFI+I 
MLI = $BF00 SEC STY  PARMGFI+2 
BITMAP = $BF58 SEC  HIMMSE NBPAGES DS 1 
LATE = $8Fr90 STA  HIMMSB BITMASK OFB  $80,$40, 520, S1 0, Be 4, 2,1 LDA  VPATH2 
TIME # $B8F92 ELDY  VPATH2+1 | 
LDA £0 * Vérifie que la carmende STA  PARMCRE+1 
STROUT = $DB3A STA  EXIFNCMD #* est bfen COPY STY  PARMCRE+2 
STA ADR 
INSDSP2 =» $r88c IDA £>DEBUT Ds DEBUT-* LDA HIMEM 
PRBYTE = SEDDA STA  PCL+I LDY HIMEM*] 
cour = $FDED LDA  £<DEBUT CLD STA  OLDHIM 
MOVE È $ÉE2C STA  PCL OX  BUFFER STY  OLDHIHr1 
JSR RELOGE LOA  VEATAI 
GET_TIME = $82 CLC STA BUFFER LDA  VPATRI 
DESTROY = $c1 RTS LDY  BUFFERSI LDY  VPATHISI 
CREATE _ $co LDA VEATH1+1 STA BUFFER 
SET FILE_INEO = $C3 Relogeur STA  BUFFER+I STY BUFFERYI 
GET_FILE_INFO = $C4 réassemble le programme STX  OLDBUFF LDY  £i 
ONLINE = $cs situé à l'adresse (ADRESSE) STY OLDBUFF+1 LOA (BUFFER),Y 
GET_PRÉFIX =  $C7 DEBUT doit etre multiple de 256 LDX £0 CR  £'/t 
OPEN - $c8 la zone des données est LDY £i BEQ PRFXSTI 
REAO = $CA séparée du progranve par un 90 TEST LDA {BUFFER),Y 
WRITE - $C8 le progranne reloge 1a CMP = JSR INCPATH 
CLOSE = $cc structure du MLI BNE TEST1 
GET_EOF = $p1 oinsi que les parametres INY PRFXSTI LDA  VPATH2 
éventuels JMP TEST LDY  VPATH2#1 
ORG START TESTI CPX  COMMAND STA  BUFFER 
Relogeur de le commande RELOGE LDX £0 BEQ MIENNE STY BOFFER+1 
externe LDY  £$FF CMP COMMAND#1,X LDY  £l 
EDA  (PCL,X) BNE  PASMIEN ELDA  (BUFFER),Y 
LDOA  EXTRNCHD+# BEQ  RTRANS INX CM £'/' 
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BEQ PREFXST2 
JSR INCPATH 
PREXSTZ2 JSR GETFINFO 
* Vérifie que le fichier 
n'‘ést ni un Directotfy ni 


un fichier Bad 


LDA PARMGEF'I+4 


CP EL 
BER BADTYPE 
Cæ SF 


BNE GOODTYPE 


BADTYPE LDA £$D 
JMP ERROUT 


* Recopie les paramètres 
du fichier seurce dans 
la table des 

* paramètres du fichier 
destination 


GOODTYPE LDX £2 
GFICRE INX 
LDA  PARMGFI,X 
STA  PARMCRE,X 
CPX £7 
BNE  GFI_CRE 
LPA £#11100011 
STA  PARMCRE+3 


* Va chercher l'heure et 
la date de création 
* du fichier destination 


JSR HEUDAT 


ZDA DATE 

LDX  DATE+#1 

STA  PARMCRE+8 
STX PARICRE +3 
LDA TIME 

LDX  TIME+1 

STA PARNCRE+I 0 
STX PARMCRE+1I1 


UJSR CREE 


* Ouvre le Fichier source 


puis le fichier destinatien 


LDA £a 
JSR GBUFF 
LDY £0 


STY PARMOUV +3 
STA PARMOU V+4 


LDA VPATH1 
LDY VPATAL+I 
STA PARMOUV +1 
STY PARMOUV+2 


JSR OUVRE 


LDA REF NUM 


STA PARMLIT+1 
STA PARMEOF+I 


LDA £a 
JSR GBUFF 
LDY £0 


STY PARMOUV+3 
STA PARMOUV +4 


ZDR VPATH2 
LDY VPATH2+1 
STA PARMOUV+I 
STY PARWOUV +2 


JSR OUVRE 


LDA REFNUM 
STA PARMECR+1 


JSR GEOF 


* Choisit un buffer pour 
le transfert 


LDA £0 

STA POSEOF' 
STA POSEOF +1 
STA POSEOF+2 


LDA PARMGFI+8 
LDY PARMGFI+S$ 
STA CALCUL 
STY CaLCUL+1 
ASL CALCUL 
ROL CALCUL+ 
L8A CALCUL+#1 
BEC TAILLE 


LDA £143 

STA ECCO 

BNE CHERBUF 
TAILLE LDX CALCUL 

INX 

STX ECCO 
CHERBUF DEC ECCO 

LDA ECCO 


JSR GEFBUFR 
BCS CHERBUF 
STA PARMLIT+3 
STA PARMECR+3 
LDY £0 

STY PARMLIT+2 
STY PARMECR+2 
LDA ECCO 

STA LENBUFE 


* Procède au transfert 
des infermations 

SUITE LDA PARMEOF+2 
SBC POSEOF 
STA RESTE 
LDA PARMEOF+3 
SBC POSEOF‘+I 
STA RESTE+1 
LDA PARMEOF +4 
SBC POSEOF+2 
STA RESTE+2 


LDA RESTE+2 
BNE SUITEL 
LDA RESTE+1 
CM LENBUF'F 
BCS SUITE 
STA PARMLIT+S 
ELDA RESTE 

STA PARMLIT+4 
UMP SUITEZ 


SUITEL LDA £0 
LDY LENBUFF 
STA PARMLIT+4 
STY PARMLIT+5 


SUITEZ JSR LIT 


LDX  PARMLIT+6 
LDY  PARMLIT+7 


ADC POSEOF 
STA POSEOF 


ADC POSEOF'+1 
STA POSEOF +1 
LDA £0 

ADC POSEOF+2 
STA POSECF+2 
STX PARMECR+4 
STY PARMECR+5 
JSR ECRIT 


LDA POSEOF'+2 
CMP PARMEOF+4 
gcc SUITE3 


SUITE3 


END 


RECOP 


RTS 


POSEOF'+1 
PARMEOF +3 
SUITE3 
POSEOF 
PARMEOF+2 
END 

SUITE 


CLOT 


VPATH2 
VPATH2+1 
PARMSFI+I 
PARMSF1+2 
£4 

PARMGE 142, X 
PARMSFI+2,X 


RECOP 


FIXFILE 


* Ferme le Fichier source 
puis le fichier destinetien 


CLOT 


RESTORE 


RTS 


PARMLIT+1 
PARMCLO+1 


FERME 


PARMECR+1 
PARMCLO+1 


FERME 


DLDHIM 
OLDHIM+1 
HIME“M 
HIMEM+1 


OLDBUFF 
OLDBUFF+1 
BUFFER 
BUEFER+1 


* Met le préfixe du lecteur 
par défaut devant le pathname 
# pointé par BUFFER 


INCPATA 


PASPREF 


LDA 
JSR 


£1 
GBUFF 


£0 
PARMON+3 
PFARWON+2 
PARMPREF +2 
PARMPREF+1 
LITPATH+2 
LITPATH+1 
PRNDPREF 
LITPATH 
PASPREF 


DEFSLT 


DEFDRV 


PARMON+1 


ENLIGNE 


LDA BUFFER 


CLC 

ADC £i 

STA A1 

LDA BUFFER+I 
ADC  £0 

STA Alri 

LDY £9 

LBA (BOUFFER), Ÿ 
SEC 

ADC BUFFER 
STA A2 

LDA BUFFER+1 
ADC £0 

STA HA2+1 

JSR LITPATH 
CLC 

ABC £3 

CLC 

ADC BUFEER 
STA A4 

LRA BUFEER+1 
ADC £0 

STA A4+1 

LDA A2 

SEC 

SBC A1 

TAY 

INY 


DEPLACE DEY 
LDA  {ALJ,Y 
STA  (A4),Y 
CPY  £0 
BNE  DEPLACE 


LDA PARMON+2 


CLC 
ADC £1 
STA AI 
ZSA PARMON+3 
ADC £0 
STA A1151 
JSR LITPATH 
SEC 
ADC  PARMON+2 
STA A2 
LDA PARMON+3 
ADC £0 
STA A2+1 
LDA BUEF ER 
CLC 
ADC £2 
STA A4 
LDA BUSFER+I 
ADC  £0 
STA A4+1 
JSR MOVE 
LDY £0 
LDA  (BUFFER),Y 
STA ADD+1 
JSR LIYPATH 
CLC 

ADD ADC £0 
ADC £2 
STA  (BUFFER),Y 
INY 
LDA £"/" 


STA (BUFFER},Y 
JSR LITPATH 


CLC 

ADC £2 
TAY 

LDA Et 7e 


STA (BUFFER),Y 


LITPATH LDA  SFEFF 
AND £800001111 


* Appels au ProDOS 


* 
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CELELLEZEE) 


GETFINF®O JSR 


HEUDAT JSR 


CREE JSR 


OUVRE JSR 


ECRIT JSR 


FERME JSR 


GEOF JSR 


LIT JSR 


PRNDPREF JSR 


ENLIGNE JSR 


EFFACE JSR 


FIXFILE JSR 


GBUFF JSR 


MLI 
GET_FILE_INF@ 
PARMGFI 

ERROR 


MLI 
GET_ TIME 
,,0 
ERROR 


MLI 
CREÂTE 
PARMCRE 
ERROR 


MELI 
OPEN 
PARMOUV 
ERROR 


MLI 
WRITE 
PARMECR 
ERROR 


MLI 
CLOSE 
PARMCLO 
ERROR 


READ 
PARMLIT 
ERROR 


MLI 
GET_PREFIX 
PARMPREF 
ERROR 


MEX 
ONLINE 
PARMON 
ERROR 


MEI 
DESTROY 
PARMDES 
ERROR 


MLI 
SET_FILE_INFO 
PARMSFI 

ERROR 


GETSUFR 
ERROR 


* Affichage du code et du 
message d'errsur 


ERROR PHA 


£$48 
ERRi 
PARMCRE+I 
PARMCRE+2 
PARMES+1 


ERRI 


GETMLI 


OUIOUI 


ERR2 


MLICODE 


MLI1 


MLIZ 


MLI3 


MLId 


#LIS 


MLI6 


MLI7 


ML18 


MLIS 


MLIA 


MLIB 


MLIC 


MLID 


HMLIZ 


MLIE 


ASC 


PARMDES+2 JSR RESTORE 
JMP WARM 
CLOT 
EFFACE * Table des adreeses 
des messages d'erreur 
CODEMSG 
ERR1+1 MLIERR LDA MLII 
ERRI+2 LDA  MLI2 
STROUT LDA MLI3 
LDA MLI4 
LDA MLIS 
PRBYTE LDA MLI& 
£$A0 LDA  MLI7 
COUT LDA MLI6 
LDA MLI19 
| ag Mad 
LDA MLIA 
OU LDA  MLIB 
E520 LDA MLIC 
BUT LDA MLID 
LDA MLIZ 
LDA MLIE 
E2e LDA  MLIF 
MLICODE, X LDA MLIG 
QUIQUI LDA MLIH 
LDA  MLIT 
GE1MLI LDA MLIJ 
LDA MLIK 
ERR2+1 LDA  MLIL 
LDA MLIM 
LDA  MLIN 
£g LDA  MLIO 
LDA MLIP 
LDA MLIC 
MLIERR,X LDA MLIR 
LDA MLIS 
MLIERR,X 
STROUT BRK 
£7 
COUT POSECF"' DS 3 
£$8D RESTE DS 3 
COUT OLDHIM DS 2 
01092527282B2E40424344954647484 
942484C4D4ES0S1 52535556575A Lee 
"Mauvais code de fonction du ML 
re 
00 MLIG 
"Nembre de paremétres incorrect 
n 
00 MLIH 
"Table de vecteurs d'interrupti 
cn pleine." 
00 MLII 
"Erreur d'entrée”sortie." 
00 
“Pas de périphérique connecté." MLIJ 
00 
"Jisque protégé à ‘'écriture." 
00 MLIK 
“La disquette a été changée.” 
00 MLIL 
“La syntaxe du nom est incorrec 
te." MLIM 
00 
"Il y a déja huit fichiers ouve MLIN 
ECS. 
00 
"Ce numéro de référence n'est D MLIO 
es celui d'un" 
“ fichier ouvert." 
00 MLIP 
“"Sous-catalogue inexistant." 
00 
“Le volume n'est pas disponible MLIQ 
" 
00 
"Le fichier n'est pes dans le c MLIR 
ataloque demandé." 
00 
"Le fichier existe déjà " MLIS 
g0 
"Pas assez de place sur ce volu 
me PFIN 


ASC 


CALCUL DS 2 
OLDBUFF DS 2 
LENSUFF DS 1 
ECCO DS 1 


COMMAND  STR 


PARMGFI DFB <0A 


DS E7. 
PARMSFI  DFEB $07 
DS 13 
PARMCRE DFB $07 
DS 11 
PARMECR  DFB $04 
DS 7 
PARMLIT DFB $04 
DS 7 
PARMOSV DFB $03 
DS 4 


REENU4 DS 2 
PARMEUF DEFB $02 


DS 4 
PARMON  DFB $02 
Ds 3 


PARMPREF DFB $01 


DS 2 
PARMDES DFB sol 

DS 2 
PARMCLO DFB $o01 

DS il 


CODEMSG HEX  8D 
ASC " Code $" 
HEX 00 


* Codes d'erreur du MLI 


00 

"Le catalogue principal est pie 
drain 

00 

"Le MLI est trop ancien pour li 
re ce fichier." 

00 

“Ce PreDOS ne peut utiliser ce 
type de stockage." 

00 

“La fin du fichier a été attein 
te: 

00 

“On ne peut aller au delà de la 
fin du fichier.” 

00 

"Le fichier est verrouillé." 
00 

"Le fichier est resté ouvert." 
00 

"Le catalngue est endommagé." 
00 

“Le disque n'est pas en ProDOS. 
" 

00 

"Un des paromètres de la table 
est incorrect." 


"ProDOS ne peut gerar que huit 

lecteurs à la fois." 

00 

“Le buffer ne peut s'implanter 

è l'endroit désigné." 

00 

"Il ÿ a deux nens de volume ide 
ntiques." 

00 

"La caite des blocs est endomma 
gée." 

00 
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 Ÿ objet du présent programme est de 






répondre aux besoins de sauvegarde de 
volumes de tailles différentes. Avec 

# MouseDesk, la copie de multiples fichiers 
ne pose pas de problème mais avec le Filer de 
ProDOS, pas question de sauvegarder des dossiers ni 
de copier des volumes différents. 


La configuration était la suivante : Apple //, une carte 
Speedisk 1 Méga, un lecteur 800 Ko, pas de souris et 
le problème était de saugarder la carte RAM sur une 
disquette 800 Ko. Le programme Basic présenté ici 
n'est qu'une utilisation du Copieur de F. Rosay listé 
dans ces pages : il se charge de rechercher dans le 
catalogue les dossiers et sous-dossiers quelle qu'en 
soit la profondeur puis fait appel à la commande 
externe COPY pour en assurer la sauvegarde. 


Il donne accessoirement une façon de rechercher les 
fichiers dans les dossiers. 


Utilisation 


Le programme se lance simplement par : 
RUN COPIE.TFOU- COPIE.TF 
exclusivement sous ProDOS. 


Il demande successivement les port et lecteur du 
volume original et du volume destination puis 
recherche les catalogues, les crée si nécessaire sur le 
volume destination et enfin exécute les copies. 


Si un fichier existe déjà sur la copie, le programme 
affiche un message auquel on répond par : 


Programme COPIE.TF 





Christian Piard 


o le fichier sera effacé et remplacé, 

N la copie de ce fichier est annulée, 

s ce fichier et tous les éventuels suivants seront 
effacés et remplacés. 


Pour une question de rapidité, il est vivement 
conseillé de reformater le volume destination avant 
copie... 


Remarques 


Ce petit programme pourrait être adapté pour faire des 
sauvegardes d'un volume 800 Ko sur plusieurs 140 
Ko par exemple (ici, le cycle de copie s'interrompt en 
ligne 4840 en cas de saturation du disque destination). 


La commande externe COPY gère elle-même les 
erreurs et ne permet pas de les récupérer par 
l'ONERR. Les POKESs de la ligne 0 ont pour objet de 
détourner les erreurs vers le vecteur $BE09-$BEOB 
(Errout) de la page globale du BasicSystem ; ainsi un 
‘Duplicate File Name’ est bien pris en charge par 
l'ONERR GOTO 4000. 


La ligne 100 prévoit 200 dossiers et sous-dossiers et 
500 fichiers par dossier au maximum : la modification 
des DIM devrait répondre à tous les besoins. 


La commande COPY ne gère pas les numéros de port 
et de lecteur aussi, il convient de nommer 
différemment les volumes origine et destination. 


G 


{200),FIS(500) 





60 


105 PRINT "Origine": PRINT ""-----—- QU 

0 PRINT CHRS (4}'"BLOADCOPY"': POKE 2578 JON TAB ST INPUT MPOrt Me RS MONMS SI 

3,76: POKE 25784,3: POKE 25785,101: "1" OR S$ > "7" GOTO 110:5 = VAL { 

POKE 25860,9: POKE 25861,190: CALL 2 5$) 

4576 JTIVTABNÉ: INEUT !"Lect MTS ON US < 
1 HOME : FOR I = 0 TO 9: READ Z: POKE 7 NOR NDS MIN COTOMIMTID = NU TVAL 

68 + I,Z: NEXT : DATA 104,168,104,16 US) 

6,223,154, 72,152,72, 96 112 PRINT DS"PREFIX,S"S",D"D: PRINT DS" 
2 ONERR GOTO 4000 PREFIX": INPUT OGS:0OGS = LEFTS (OGS 
5 DS = CHRS (4) , LEN (0G$) - 1) 
20 PRINT DS"PREFIX": INPUT APS 115 PRINT : PRINT : PRINT "Destination" 
100 AN = O:NN = O:NK = 0:DF = 0: DIM DIS : PRINT M \S 
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Exemple d'exécution 








Origine //e 

nr ic 

Lect 3 fe 
— I19S 

Destination 

Fi ProDOS 


Copie de /SPDK vers /COPIE.SPDK 


Ok, 7 © 


Recherche des catalogues... 


/SPDK 
/SPDK/MERLIN 
/SPDK/MERLIN/LIB 
/SPDK/MERLIN/UTIL 


Création des catalogues... 


{COPIE . SPDK/MERLIN 
/COPIE.SPDK/MERLIN/LIB 
/COPIE.SPDK/MERLIN/UTIL 


Copie des fichiers 


Copie de /SPDK/PRODOS 

See > /COPIE . SPDK/PRODOS 

Cepie de : /SPDK/REBOOT.S YSTEM 

—————- > /COPIE.SPDK/REBOOT.S YSTEM 

Copie de : /SPDK/BASIC.SYSTEM 

== se > : /COPIE.SPDK/BASIC.SYSTEM 

Copie de : /SPDK/MERLIN/MERLIN.SYSTEM 
no > : /COPIE.SPDK/MERLIN/MERLIN. SYSTEM 
Copie de : /SPDK/MERLIN/LIB/SENDMSG.S 

nn — > /COPIE.SPDK/MERLIN/LIB/SENDMSG.S 
Copie de : /SPDK/MERLIN/UTIL/XREF 

=== > : /COPIE.SPDK/MERLIN/UTIL/XREF 
Copie de : /SPDK/MERLIN/UTIL/XREFA 

ns _ /COPIE.SPDK/MERLIN/UTIL/XREFA 


120 


121 


122. 


125 


130 


140 


150 
155 
156 
Tor 
160 


190 
200 
210 
220 
2221 
222 
224 
226 
228 
230 
292) 
234 


236 
238 
240 
250 


260 
270 
271 
272) 
280 


290 
300 


310 
375 
320 
330 
933 
336 
337 


VTAB 13: INPUT "Port MASSE IONESS 
COUIUNORES SET 7 COTON 20 SE NAT 
(5$) 

VTAB 14: INPUT 
<MIMMOR DS 
(US$) 

PRINT DS"PREFIX,S"S",D"D: PRINT DS" 
PREFIX": INPUT DES:DES = LEFTS (DES 
, LEN (DES) - 1} 

IF OG$ = DES THEN PRINT : PRINT "L 
es volumes sont homonymes...": WAIT 

49152,128: POKE 49168,0: PRINT DS"PR 
EFIX"APS: RUN 1 

PRINT : PRINT "Copie de "OGS$" vers 

"DES 

PRINT : INPUT 
> "O" AND R$ < 


PRINT "PRINT 
REM #*###44444 44442424 


ITECEL EU SMONAUS 
"2" GOTO 121:D = VAL 


OR PMMNERSE: TENRS < 
> “o" THEN RUN 1 


REM * Recherche des catalogues 

REM AAA X EX E  É 4 # # # # 

PRINT "Recherche des catalogues..." 
HP RITNT; 
DIS(0) = 
DT = 0 
FOR I = AN TO NN 
PA$ = DIS{(I) 

PRINT PAS$ 

PRINT DS"OPEN"PAS$", TDIR 

PRINT DS"READ'"PAS 
F = 0 

INPUT AS 

IF F AND NOT LEN (AS) THEN 238 
IF NOT LEN (AS) THEN F = 1 
LEOMTDS (AS, 16,3} =" "DDR" THEN DT 
= DT + 1:DIS{(NN + DT) = PA$ + "/" + 
MIDS (A$,2,15): GOSUB 3000 
GOTO 228 

PRINT DS$"CLOSE 

NEXT 

IF DT THEN AN = NN + 1:NN = 
SD'IM=U0: GOTO 210 
NC = NN + DT 

REM #A##444AAHAAA XX ZX 


OG$ 


NNISEN DT 


REM * Création des catalogues 

REM Ath AE À À À 

PRINT : PRINT "Création des catalog 
ES. -wtPRINT 

IF NOT NC GOTO 400 

FOR I = 1 TO NC:PAS$ = DIS(I): FOR J 
= 2 TO LEN (PA$}: IF MID$ (PA$,J, 


1} = "/" THEN PAS = MIDS (PAS,J + 1 
):J = LEN (PAS) 
NEXT 


PRINT DES"/"PAS 

PRINT DS$S"CREATE"DES"/"PAS",TDIR 
NEXT 

REM #AA4#AA4#A AAA AE 


REM * Copie des fichiers 
REM ## #44 4444444 #4 # 








61 





340 


400 
405 
410 


420 
425 
430 
431 


440 


450 
455 
460 
470 
500 
501 
502 


503 
504 


505 
509 


510 
997 
999 
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PRINT : PRINT "Copie des fichiers": 
PRINT 

FOR I = (0 TO NC 
N1 = 0 


PRINT DS"OPEN"DIS(I)",TDIR": PRINT 
DS$S"READ"DIS(I) 
F = 0 

INPUT AS$: INPUT A$ 

REM 

INPUT AS: IF F AND NOT 
HEN 500 

IF NOT LEN 
430 

IF MID$S (A$,18,3) = "DIR" THEN 430 
F1$ = DIS(I) + "/" + MIDS (AS$S,2,15) 
N1 = N1l + l:FIS(N1) = F1S$S 

GOTO 430 

PRINT D$"CLOSE 

IF NOT N1l THEN 510 
FOR K = 1 TO Nl:F1$ = 
DES + RIGHTS (F1l$, 

(0G$) ) 

PRINT : PRINT "Copie de : "F1$ 
PRINT D$"COPY"F1$","F2S$: PRINT "--- 
——--> : "F2$ 

NEXT K 
FOR K = 
PRINT 
NEXT I 
PRINT DS$"PREFIX"APS 
END 


LEN (AS) T 


(AS) THEN F = l: GOTO 


FIS(K):F2$ = 
LEN (F1$) - LEN 


OMTONSE NP RINTEUENE NET 


Editeur Plein Ecran 


Le Pacha 
DOS 3.3 - ProDOS 


1999 REM #*##ttttt tt xt Ex 

3000 US$ = DIS(NN + DT):U = LEN (US$): FO 
RS = 1 TO VU: TE MIDS (US, JM) =" 
" THEN DIS(NN + DT) = LEFTS (US$,J - 
JE TEEN D 

3010 NEXT : RETURN 

4000 CALL 768: REM Bug de l'OnErr 


4010 LT = PEEK (218) + 256 * PEEK (219 
):ER = PEEK (222) 

4020 IF ER = 19 AND LI = 320 THEN GOTO 
330 

4030 IF NOT (ER = 71 AND LI = 504) THE 
N 4035 

4031 ON DF GOTO 4034: PRINT SPC( 11)F2 


$" existe déjà": PRINT "Rempicmt : © 
JN Remplacer tous : S 

4032 WAIT 49152,128: POKE 49168,0:RR = 
PEEK (49152): IF RR = ASC ("N") OR 


RR = ASC ("n") THEN PRINT "Copie 
annulée": PRINT : GOTO 505 
4033 IF RR = ASC ("S") OR RR = ASC (" 


3") THEN DF = 1 

AO0S1NONMRR SN > UASCE ("O0") AND ER < > 
ASC ("o'") AND NOT DF GOTO 4032: PR 
INT DS$S"UNLOCK"F2$: PRINT DS"DELETE"F 
2$: PRINT "Effacemt : "F2$: RESUME 

4035 PRINT : PRINT CHRS$S (7) 

4040 IF NOTER THEN PRINT "Disque des 
tination plein": END 

4099 PRINT DS"PREFIX"APS 


4100 PRINT "Erreur n° "ER" ligne "LI 


ÈPE 


Apple }[+, //e, //€, gs 


Listez vos programmes Basic en avant et en arrière. 
Modifiez, insérez, effacez des caractères en plein écran 


sans relire les lignes. 


Recherchez toute chaîne de caractères. 
Choisissez vous-même les codes de contrôle d'EPE. 
Modifiez EPE : le fichier source est sur la disquette. 


200,00 F TIC franco 
{bon de commande page 74) 
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Jean-Louis 
Chauvin 


vec un Apple //, il est 
possible de gérer des 
gros fichiers de 
données et, pour que 
; le temps d'accès aux 
articles reste acceptable, il est 
d'usage d'organiser le fichier en 
fichier ‘séquentiel indexé’, 
comportant une table d'index 
associant à la “clé” de chaque 
article son numéro dans le fichier. 





À partir de quelques centaines 
d'articles, la table ne tiendrait 
plus entière en mémoire et serait, 
sur disque, trop longue à 
explorer. Il faut alors la remplacer 
par un système de tables 
multiples, dont la gestion est à 
inclure dans le programme. 


Nous vous proposons ici une 
“UNIT” assurant la gestion d'un 
système de tables à deux niveaux. 


Les programmes 


Vous disposez de la disquette 
d'accompagnement 800 Ko: 

Les fichiers ont été transférés en 
ProDOS grâce à Universal File 
Conversion (UFC). C'est ce 
programme que vous utiliserez pour 
les repasser sous Pascal. 


Vous disposez de la disquette 
d'accompagnement 140 Ko : 

Deux possibilités : 

Sur la face ProDOS, il vous faudra 
utiliser UFC comme sur la disquette 
800Ko. 

Les fichiers sont également en 
format DOS 3.3 sur l'autre face : 
utiliser le programme 
BASIC-PASCAL livré sur la 
disquette pour repasser les fichiers 
sous Pascal. 
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Vous pourrez l'utiliser, grâce au 
linker, avec le programme de 
gestion de fichier que vous 
écrirez selon vos besoins, en 
partant du modèle présenté. Les 
performances sont les suivantes : 
pour un fichier de 450 articles, 
l'extraction d'un d'entre eux par 
sa clé demande environ une 
seconde. Le tri alphabétique 
demande aussi environ une 
seconde par article. En outre, le 
fichier n'a pas à être purgé pour 
récupérer la place des articles 
supprimés. 


La démonstration 


Le programme ‘REPERTOIRE’ 
gère un fichier d'adresses d'une 
capacité de 450 articles. La clé de 
chaque article comprend le nom et 
le prénom concaténés, puis 
tronqués à 15 caractères. 


Vous entrez d'abord le nom du 
fichier, par exemple “ADRES- 
SES”. En cas d'absence sur le 
disque, il y a création du fichier 
de données ADRESSES.DAT A 
et du fichier de tables 
ADRESSES.T ABL (attention à la 
place disponible). Vous pouvez 
ensuite ajouter des articles, les 
rechercher un par un par le début 
de leur clé (pour éventuellement 
les modifier ou les supprimer), 
ou encore les lister par ordre 
alphabétique de clé à partir d'une 
origine quelconque. 


Le fonctionnement 


Les fonctions principales du 
programme P.REPERT sont 
assurées par les procédures 
AJOUTER, RECHERCHER et 
LISTER. Celles-ci font appel à 
des procédures de l'unité link 
U.GESTABL : 


+ CLASSER range dans les 
tables la clé et le numéro d'un 
article ; 

+ DECLASSER supprime une 
clé des tables et les réorganise ; 

+ REPERER et DECOUVRIR 
cherchent dans les tables le 
numéro d'article associé à une 
clé donnée (respectivement 
dans l'ordre descendant ou 
ascendant) ; 

e LOCALISER cherche la 
position d'une clé dans les 
tables. 


Structure des tables 


Les tables sont composées 
d'éléments associant une clé etun 
index. Chaque table a une 
capacité de DIM éléments (plus 
un élément de rang 0 qui contient 
le nombre d'éléments présents). 
Le fichier comprend une table 
primaire, de numéro 0, et DIM 
tables secondaires. Les tables 
secondaires comprennent les clés 
de tous les articles, associées aux 
numéros d'article. 


Exemple de tables pour DIM=4 


Fichier DONNEES 


0 | 61 

1 JANDRE,.../| 
2 [SUOTDES, 
3 IDAVID,...) 
4 IALAIN,...| 
5 IRÈNE , | 
6 JJEAN ....1 


0 


Fichier INDEX 


1 2 je) 4 


| +3 IALA,1 |UJEA,3 IREN,2 | ,__| 
Î ‘3 IALA,4 I|AND,1 IDAV,3 | re] 
| 
| 
| 
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La table primaire contient les clés 
de tête des tables secondaires, 
associées aux numéros de table. 


Procédures de l'UNIT 


Chacune des cinq procédures 
cherche d'abord dans la table 0 le 
numéro de la table secondaire 
concernée. Dans l'exemple repéré 
en italique, pour DECOUVRIR, 
le numéro d'article défini par la 
clé JUL, la table 0 aiguille sur la 
table 3 (car JEA<=JUL<REN), et 
celle-ci indique le numéro 2 de 
l'article. 


Fa, procédure  CL'ASSER 
fonctionne de façon à maintenir 
vide la dernière position de 
chaque table secondaire. Si, après 
insertion de l'élément (clé, 
numéro), cette table contient DIM 
éléments, elle est dégonflée par 
transfert de son dernier élément : 


* soit dans la table de rang 
suivant si celle-ci contient 
moins de DIM-I éléments : 

° sinon dans une nouvelle table, 
dont la clé est insérée à son 
tour dans la table 0. 


Procédures du 
programme 

Elles fonctionnent conune suit : 

e MODIFIER : si la nouvelle clé 


Programme 
‘U.GESTABL’ 


diffère de l'ancienne, celle-ci 
est déclassée, puis la nouvelle 
est classée ; 

° SUPPRIMER : l'ancienne clé 
est déclassée, puis une clé vide 
(chaîne "”) est classée, associée 
au même numéro d'article. Les 
articles supprimés peuvent être 
repérés par leurs clés vides en 
tête des tables ; 


+ AJOUTER si les tables 
comportent des clés vides en 
tête, le dernier des articles 
vides est extrait, puis modifié 
par substitution des nouvelles 
données à l'ancien contenu 
vide. Sinon, un nouvel article 
est créé et sa clé est classée 
dans les tables. 


Ainsi, les emplacements des 
articles supprimés sont réutilisés 
automatiquement, et le fichier n'a 
pas à être purgé. 


Saturation 


Au remplissage, les tables se 
saturent, dans le cas le moins 
favorable, avec alternativement 
une table à 1 élément et une table 
à DIM-I éléments. Pour éviter la 
saturation, le nombre d'articles 
est plafonné à DIM* DIM DIV 
2). Ainsi, dans P.REPERT, 
DIM=30 et le plafond est à 450 
articles. 


Mais, en supprimant ou en 
modifiant des articles, certaines 





tables peuvent se dégamir. Pour 
éviter une saturation prématurée, 
les procédures suivantes 
interviennent si nécessaire : 


+ TASSER qui réunit deux tables 
de rang consécutif dont 
l'effectif total est inférieur à 
DIM ; 

° COMPRIMER renumérote les 
tables en supprimant les tables 
vides. 


Création d'un 
nouveau 
programme 


Ajustez d'abord, si nécessaire et 
en tête de UGESTABLTEXT, 
la valeur de DIM d'après la taille 
de votre fichier de données, ainsi 
que le nombre de caractères de la 
clé, puis compilez cette unité. 


Écrivez ensuite votre programme 
de gestion de fichier, de 
préférence - à - partir - de 
P.REPERT.TEXT, en évitant de 
modifier la mise en œuvre des 
procédures de gestion de tables 
dans AJOUTER, RECHER- 
CHER et LISTER. Après l'avoir 
compilé, il ne vous reste plus 
qu'à assembler avec le linker le 
code de l'unité dans celui du 
programme, puis à exécuter le 


code résultant. 7 





PROCEDURE Decouvrir (Donnee:T_cle); 
PROCEDURE Localiser (Donnee:T_cle;VAR Rangl,Rang2: 


INTEGER) ; 


Note : le caractère Ÿ indique la continuité de la ligne 


{(*$S+*) 
UNIT Sequin_Gestäbles; 


INTERFACE 
CONST Dim=30; 
TYPE Tag cle=STRING{1S] 
T_elem-RECORD 
Clerticiler 
Index: INTEGER; 
END; 


T_table=ARRAY{0..Dim} OF T elem, 


VAR Fitab:FILE OF T table; 
Numero, Num _ 2, Rang:INTEGER; 
Tablel, Table2:T table; 


PROCEDURE Classer fLibelle:T cle;Numero:INTEGER) ; 
PROCEDURE Declasser (Libelle:T_ cle); 
PROCEDURE Reperer (Donnee:T cle); 


f*a ajuster selon taille fichier*} 
f*a ajuster“); 


IMPLEMENTATION 


PROCEDURE Situer(Libelle:T cle; Table:T table; V/ 
AR Rang:INTEGER); 


BEGIN 
Rang:=1; 


WHILE (Libelle>=TablefRang}.Cle) AND {Rang<1/ 


ablef0].Index) 
DO Rang:=Rang+1; 
IF (Libelle>=Table{Rangj.Cle) AND (Rang=Tabl] 


e{0}j.Index) 


THEN Rang:=Rang+l; 
Rang:=Rang-1; 


END: 


ble); 


PROCEDURE Inserer (Element:T elem; VAR Table:T_ta] 


VAR Indice, Rang:INTEGER; 





64 


Pom's n° 32 


BEGIN 
Situer {(Element.Cle, Table, Rang); 


FOR Indice:=Tablef0],Index DOWNTO {Rang+1l) DO 


TablefIndice+1}:=Table{fIndice]; 
Table{ Rang+1} :=Element: 
Table{0}.Index:=Tablef0].Index+1; 
END; 


PROCEDURE Comprimer,; 
{*Supprime les tables vides*) 
VAR I,Nombre,Trou,Rang:INTEGER; 
BEGIN 
Trou:=0;Nombre:=Tablel1{0].Index; 
FOR 1I:=1 TO Nombre DO 
IF Tablel/fI].Cle="?" THEN Trou:=Trout+]l 
ELSE Tablel{I-Trou]:=Table1{I}; 
Tablel1{0}.Index:=Table1/{0].Index-Trou, 
Trou:=0,; 
FOR I:=1 TO Nombre DO BEGIN 
SEEK (Fitab, 1) ;GET(Fitab); 
IF Fitab"/{0].Index=0 THEN Trou:=Trou+1 
ELSE BEGIN 
SEEK (Fitab, I-Trou),;PUT (Fitab); 
Rang:=1; 


WHILE (Table]l{Rang].Index<>I}] AND {(Ran/ 


g<Nombre) 
DO Rang:=Rang+1; 
Table]l/{Rang}j.Index:=1-Trou, 
Tablel {Rang]}.Cle:=Fitab"{1].Cle; 
END; 
END; 
END; 


PROCEDURE Tasser,; 
f*Reunit 2 Tables peu pleines et comprime*) 
VAR I, Indice, Nombre, Num À,Num B:INTEGER: 
TableA, TableB:Ttable; 
BEGIN 
I:=l; 
WHILE I<Tablelf0].Index DO 
BEGIN 
Num A:=Tablel{Ij.Index; 
SEEK(Fitab,Num A);GET(Fitab) ; TableA: -Fitab/ 


Num B:=Table1{7+1]}.Index; 
SEEK (Fitab, Num_B) ;GET(Fitab);TableB] 
:=Fitab"; 
Nombre:-TableA{0].Index+TableB{0j.Index; 
IF Nombre<Dim THEN 
BEGIN 
FOR Indice:=1l TO TableB{0}.Index DO 
TableA {TableA(0].Index+Indice] :=TableB/ 
[Indice]: 
TableB{0}.Index:=0; TableAf{0},Index :=Nombf 
re; 
Tablel{I+i]}.Cle:="?"; 
SEEK (Fitab, Num_A) sFitab‘:=TableA;PUT (Fi tJ 
ab); 
SEEK (Fitab, Num B);:Fitab*":-TableB;PUT (Fit 
ab) : 
I1:=1+1; 
END; 
I:=I+1; 
END; 
Comprimer; 
END; 


PROCEDURE Classer (*Libelle:T cle;Numero: INTEGER + 
Ve) 


f*insere dans les tables la cle et le numero d/ 
‘un azticle*) 
VAR Rang, Num 2:INTEGER;Element:T elem; 


PROCEDURE Degonfler ( Rang_A:INTEGER; VAR Table0/ 
» TableA:T table); 
{*Reporte dans une autre table le dernier e1/ 
em. d'une table pleine*) 
VAR TableB:T table; Element :T elem; 
Rang_B, Num B:INTEGER; 
BEGIN 
Rang _B:=Rang At1; 
Num_B:=Table0fRang B].Index; 
SEEK (Fitab, Num B); GET(Fitab); 
TableB:=Fitab*; 
Inserer(TableAfDim],TableB); 
TableA{0].Index:=Dim-1; 
IF (TableB{0].Index=Dim) OR (Rang A=Table0/ 


[0].Index) 
{*TableB pleine ou Table 
A en queue dans Table0*} 
THEN 
BEGIN 


Num_B:=Table0{0].Index+l; 
TableBf0]}.Index:=0; 
Inserer(TableA/{Dim]},TableB); 
Element.Cle:=TableB{1] .Cle; 
Element .Index:=Num B; 
Inserer(Element, Table0); 
END 
ELSE 
TableO[Rang_ B].Cle:=TableB{1].Cle: 
SEEK (Fitab, Num B); Fitab":=-TableB; 
PUT(Fitab); 
END; 


BEGIN (*Classer*) 
Situer(Libelle, Tablel,Rang); 
IF Rang=0 THEN Rang:=1l; 

Num _2:=Tablei/{Rang}).Index; 

SEEK(Fitab,Num_2); GET(Fitab); 

Table2:=Fitab"; 
Element.Cle:=Libelle, 
Element.Index:=Numero; 

Inserer (Element, Table2); 

IF Tablel({0},.Index-0 THEN Tablei{0}.Index:=1]; 

TablelfRang].Cle:=Table2[1}j.Cle; 

IF Table2f0].Index-Dim THEN Degonfler (Rang, T/ 
ablel, Table2); 

SEEK (Fitab, Num 2); Fitab":-=Table2; PUT(Fitab] 
DE 

IF Table1{0}.Index=Dim THEN Tasser; 

SEEK (Fitab,0); Fitab”:=Tablel, PUT(Fitab); 

END; 


PROCEDURE Declasser(*Libelle:T_ cle*}); 
{*Retire un element de la Table2*) 
VAR Indice, Rang2:INTEGER: 
BEGIN 
Rang2:=Table2{0}.Index; 
WHILE Libelle<>Table2{Rang2].C1] 
e DO Rang2:=Rang2-1; 
Table2/[0}.Index:=Table2[0}.Index-1}: 
FOR Indice:=Rang2 TO Table2/f0].Index DO 
Table2{Indice]}:=Table2{Indice+1]; 
Table1{Rang].Cle:=Table2{1}.Cle; 
Fitab":=Table2; 
SEEK (Fi tab,Num 2); PUT(Fitab); 
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IF Table2{0]j.Iindex=0 THEN BEGIN 
Table]l{Rang]} .Cle:="?"; 
Comorimer;END; 

END: 


PROCEDURE Reperer {*Donnee:T_cle*}); 
{f*Repere un article d'apres sa cle“) 


VAR Rang2:INTEGER; 
BEGIN 
Situer (Donnee, Tablel, Rang) ; 
Num_2:=Tablel[Rang}.1Index; 
SEEK (Fitab,Num 2); GET(Fitab); 
Table2:=Fitab",: 
Rang2:=Fitab"{0].Index: 
WHILE (Donnee<>Fitab"[Rang2].Cle) AND (Rang2/ 
>0) 

DO Rang2:=Rang2-1; 
Numero:=Fitab" {Rang2].Index; 
IF Rang2=0 THEN Numero: =0; 

END; 


PROCEDURE Decouvrir(*Donnee:T _cle*)}; 
VAR Rang2: INTEGER: 
BEGIN 
Situer (Donnee, Tabliel,Rang); 
IF (Rang<Tablel{0}.Index) AND (POS (Donnee, Ta/ 
blel[Rang+1].Cle)=1) 
THEN Rang:=Rang+1l; 


Programme 
‘P.REPERT" 


Note : le caractère ‘j indique la continuité d'e la ligne 


PROGRAM Repertoire; 
{*fichier sequentiel indexe*) 
USES APPLESTUFF, 
{(*$U #5S:U.GESTABL.CODE *} Sequin gestables; 
TYPE String20=STRING{20}; 
String5=STRING(5}; 
VAR Fich:FILE OF RECORD CASE INTEGER OF 
0: (Der article:INTEGER); 
l: (Nom,Prenom,Adressel, Adresse2, Ville,/[ 
Telephone:String20; 
Code _postal:Strings); 
END: 
Fin,Plafond:INTEGER; 
Clesl:T cle; 
Choix:CHAR; Erreur:BOOLEAN; 


PROCEDURE Synthese (Nom,Prenom:String20;VAR Raccouf 
rci:T_cle); 
{*Cree la cie avec nom et prenom} 
VAR Nom_prenom:STRING{41]; 
BEGIN 
Nom_prenom:=CONCAT (Nom, Prenom); 
IF LENGTH (Nom prenom) >15 THEN Raccourci :=COPY/ 
(Nom prenom, 1,15) 
ELSE Raccourci :=Nom_prenom; 
END; 


PROCEDURE Initfichier; 
TYPE T_nom=STRING{23]; 
VAR Test:CHAR; 
Nom_fichier, Nom tabie:T_ nom; 





IF Rang=0 THEN Rang:=1l; 

Num 2:=Tablel{[Rang].Index; 

SEEK(Fitab, Num 2) *GET(Fitab); 

Table2:=Fitab"; 

Rang2:=1; 
WHILE (POS(Donnee,Fitab" {Rang2].Cle)]<>1) AND 
(Rang2<Fitab”"{0]}.1Index}) DO Rang2:=Rang2+1; 

Numero:=Fitab"*{Rang2}.Index; 

IF POS(Donnee,Fitab"{[Rang2].Cie}<>1 THEN Nurmf 
ero:=0; 

END; 


PROCEDURE Locali ser (*Donnee:T cle; VAR Rangl,Rangf 
D'IANTBEGER ) 


BEGIN 
Situer (Donnee, Tablel,Rangl);IF Rangl=0 THEN J 
Rangl:=1; 


Num_2:=Table1{[Rang1].Index; 

SEEK(Fitab, Num_2) ;GET(Fitab) ; 

Rang2:=1; 

WHILE (Donnee>Fitab"‘{Rang2]},Cle) AND {Rang2<f 
=Fitab"{0}.Index) 

DO Rang2:=Rang2+1; 

IF Rang2>Fitab"{0]}.Index THEN BEGIN Rang2: =1/ 

“Rangl:=Rangl+1;END; 
END; 


BEGIN 
Numero:=0; Num _2:=0;Rang:=0; 
END. 


PROCEDURE Nommer (VAR Fichier,Table:T nom); 

VAR Nom, Volume :STRING[10};:Lecteur:CHA3R; 

BEGIN 
WRITE (‘nom du fichier (max. 10 caracteres):'f 
lé; 
REA&DLN (Nom) ; 
WRITE (‘lecteur 1 OU 2 ? "):READ(Lecteur) WRI] 
TELN; 

STR (ORD (Lecteur) -45, Volume}; 
Fichier:=CONCAT ('#", Volume, ‘:'",Nom,'.DATA'); 
Table:=CONCAT("#", Volume, ‘:",Nom, ‘. TABL'}); 

END; 


PROCEDURE Creer; 
VAR Nombre : INTEGER;Reponse:STRING[5]; 


BEGIN 
WRITE ('taper CREER pour confirmer: ‘}; 
READLN(Reponse); 
IF Reponse="'CREER" THEN 
BEGIN 


REWRITE (Fich, Nom fichier): 

Fich”.Der article:=0; PUT(Fich); 

WRITE (‘reserver combien de fiches ?'); REA) 
DLN (Nombre) ; 

Fich".Der article:=1; 

FOR Numero:=1 TO Nombre DO PUT(Fich}); 

CLOSE (Fich, LOCK) :REWRITE (Fitab, Nom table); 
Fitab”"{0]}].Index:=9;Fitab"'{0}.Cle:=""; 

FOR Numero:=1 TO Dim DO 


BEGIN 
Fitab"{Numero].Index:=1; 
Fitab"{Numero].Cle:=" ’; 

END; 


FOR Numero:=0 TO Dim DO PUT(Fitab); 
CLOSE (Fitab, LOCK); 
END: 
END: 
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+ à 








BEGIN (*Initfichier*) 
Erreur:=FALSE; 
REPEAT 
Nommer (Nomfichier,Nomtable) ; 
(*$I-*] 
CLOSE (Fich) :RESET (Fich,Nomfichier); 
(*$I+*) 
IF IORESULT=0 THEN Test:="O" 
ELSE BEGIN 
WRITELN({'fichier introuvable - voulez-vous/ 
s")e 
WRITELN("- le Creer‘); 
WRITELN('- Modifier son nom 
ae 
READ (Test) :WRITELN; 
IF Test="C" THEN Creer: 
END; 
UNTIL Test<>'M'; 
(*SI-*) 
CLOSE (Fich): RESET(Fich, Nom fichier}; 
(arr 0) 
ÏF IORESULT<>0 
THEN BEGIN 
WRITELN('traitement impossible"); 
READ {Choix}; 
Erreur:=TRUE:END 
ELSE BEGIN 
Fin:=Fich".Der article; 
CLOSE (Fitab):RESET(Fitab,Nom_ table); 
Tablel:=-Fitab"; 
END: 
END; 


PROCEDURE Masque; 

BEGIN 
PAGE (OUT PUT) ; 
ARITELN{'fiche individuelle nf ‘,Numero); 
WRITELN ('=========222222m=«-=«===="); 
GOTOXY (0, 4) : WRITELN ('nom'):WRITE ("prenom"); 
GOTOXY (0, /};WRITE ('adresse'}; 
GOTOXY(0,10):WRITE('code, ville'); 
GOTOXY(0,12) ; WRITELN{'telephone"'}); 

END; 


PROCEDURE Saisir; 
VAR Reponse: CHAR;Chaine:String20; 


PROCEDURE Lire{(X,Y,L:INTEGER;VAR Champ:String20); 
VAR Donnee:STRING(21]}; 
BEGIN 
GOTOXY (X+L, Y):WRITE('"<'); 
GOTOXY (X, Y) ;READLN (Donnee) ; 
IF LENGTH (Donnee) >L THEN Donnee:=COPY (Donneel 
1 EU 
IF Donnee<>'"" THEN Champ:=Donnee; 
GOTOXY IX, Y):WRITE (Champ, CHR(29)/ 
); f*effacement fin de ligne*) 


END; 


BEGIN (*Saisir*}) 
REPEAT 

Lire (14, 4,20,Fich°.Nom}; 

Lire (14, 5, 20,Fich*. Prenom); 
Lire(14,7,20,Fich".Adressel); 
Lire(14,8,20,Fich".Adresse2); 
Chaine:=Fich".Code postal; 
Lire(14,10,5,Chaine]};Fich*.Code postal :=Chaif 
ne; 


GOTOXY (20,10) :WRITE(Fich”".Ville); 
Lire(20,10,20,Fich".Ville}); 
Lire(14,12,20,Fich°.Telephone); 
GOTOXY(14,16):WRITE ('accord (O/N)? ‘'); 
READ (Reponse) ; WRITELN:; 
UNTIL Reponse="0"; 
END; 


PROCEDURE Afficher, 

BEGIN 
GOTOXY (14, 4) :WRITE(Fich".Nom); 
GOTOXY(14,5):WRITE(Fich".Prenom); 
GOTOXY (14,7); WRITE(Fich".Adressel); 
GOTOXY (14, 8); WRIE (Fich”".Adresse2); 
GOTOXY(14,10);:WRITE(Fich".Code_ postal); 
GOTOXY (20, 10);:WRITE(Fich".Ville): 
GOTOXY (14,12) ;:WRITE (Fich*.Telephone): 
WRITELN; 

END; 


PROCEDURE Effacer; 

BEGIN 
Fich".Nom:=""; 
Fich".Prenom:="'"; 
Fich".Adresse1:=""; 
Fich".Adresse2:='""; 
Fich".Code postal:=""; 
Fich".Ville:=""; 
Fich*.Telephone:=""; 

END; 


PROCEDURE Ajouter; 
f*Ajoute une nouvelle fiche*) 
VAR Choix 1:CHAR; Sature:BOOLEAN; 


PROCEDURE Auto; 
(tree une fiche aleztoire, pour essai*) 
VAR Chaine:String20; 


PROCEDURE Alea (Longueur: INTEGER;:VAR Chaine:st/f 
ring20); 
(*Cree une chaine aleatoire*) 
VAR I,L:INTEGER;: 
BEGIN 
Chaine:=" 
L:=RANDOM MOD Longueur+l; 
FOR I:=1 TO L DO Chaine{I]:=CHR (RANDOM MOJ 
D 26+65); 
Chaine:=COPY (Chaine, 1, L); 
END; 


BEGIN (*Auto*) 
RANDOMIZE; 
Alea{20,Fich°.Nom); 
Alea{(20,Fich".Prenom); 
Alea(20,Fich".Adressel) ; 
Alea(20,Fich".Adresse2); 
Alea(20,Fich".Ville}; 
Aleaf20,Fich".Telephone); 
Alealf5,Chaine):Fich'".Code_postal:=Chaine; 
Afficher: 

END; 


BEGIN (*Ajouter*) 
IF (Fin<Plafond) OR (Tablel[1}.Cle=""]THEN Satf 
ure : =FALSE 
ELSE Sature:-=TRUE; 
Choixl:="0"; 
WHILE fChoix1="O'") AND (Sature=FALSE) DO 
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BEGIN 
IF Tablelf1].Cle="'" 
effacees*) 
THEN BEGIN Reperer ("');Declasser(’') END 
ELSE BEGIN Fin:=Fin+l;Numero:=Fin;END; 
Effacer; 
Masque; 


{tsi des fiches ont ete f 


IF Choix='"à" THEN Auto (*pour essai +f 
) ELSE 
Saisir; 
SEEK (Fich, Numero) ;:PUT{Fich);: 
Synthese (Fich".Nom,Fich".Prenom,Cle 1); 
SEEK(Fich,0): Fich".Der_article:=Fin: PUT(Fi] 
ch}: 
Classer(Cle 1,Numero); 
IF (Fin<Plafond) OR (Table1[1}.Cle="') THEN / 
Sature:=FALSE 
ELSE Sature:=TRUE; 
IF Sature THEN WRITELN('fichier sature') 
ELSE BEGIN 
GOTOXY (14,18):WRITE ('fiche suivante (0/NJ 
JEUE 
READ(Choix1l);: WRITELN: 
END; 
END; 
END: 


PROCEDURE Rechercher: 
(Recherche un article d'apres sa cle*) 
VAR Choix M:CHAR; Nom,Prenom:String20; 


PROCEDURE Modifier; 
{*Modifie un article“) 
VAR Cle _2:T_cle; 


BEGIN 
GOTOXY (14,18); WRITE(CHR(29)): (“efface ligne] 
6) 
Synthese{Fich".Nom,Fich",Prenom,Cle 1); 
Saisir; 


Synthese (Fich".Nom,Fich".Prenom,Cle 2); 
IF Cle 2<>Cle 1 THEN BEGIN 
Declasser(Cle 1): 
Classer(Cle 2, Numero) ; 
END; 
SEEK(Fich, Numero): PUT(Fich);: 
END: 


PROCEDURE Supprimer; 
{*Supprime un article*) 
VAR Reponse:CHAR: 
BEGIN 
WRITE {'taper X pour confirmer: ")J 
; READ (Reponse) :WRITELN; 
IF Reponse="X" THEN 
BEGIN 
Synthese (Fich°®.Nom,Fich".Prenom,Cle 1); 
Declasser(Cle 1); 
Classer ("°, Numero) ; 
Effacer; 
SEEK (Fich, Numero) ; PUT (Fich) ; 
END: 
END; 


BEGIN (*Rechercheri) 
Choix:="0"; 
WHILE Choix="0" DO 
BEGIN 
PAGE (OUTPUT) :ChoixM:="N"; 
ARITE ("nom ? "); READLN (Nom); 


WRITE ('prenom ? "J,READLN (Prenom) ; 
Synthese (Nom,Prenom,Cle 1); 
Decouvrir(Cle 1); 
IF Numero=0 THEN WRITELN({'nom inconnu") 
ELSE BEGIN 
SEEK(Fich, Numero); GET{Fich); 
Masque: Afficher; 
GOTOXY (14,18); 
WRITE f'voulez-vous Modifier ou Supprime/ 
r cette fiche ?'}J; 
READ (ChoixM) ;WRITELN; 
IF ChoixM='M' THEN Modifier; 
IF ChoixM="S" THEN Supprimer; 
END; 
GOTOXY (14,20); WRITE('autre fiche (O/N}?"); 
READ (Choix) ; WRITELN: 
END; 
END; 


PROCEDURE Lister; 
VAR Il, I2:INTEGER, Choix:CHAR; Debut:Tcle; 
BEGIN 
WRITE ('debut de la liste ? ‘");READLN(Debut}); 
IF Debut='" THEN Debut:="!"'; (*pour eviter de 1f 
ister les fiches effacees*] 
Localiser (Debut, J1, 12); 
PAGE (OUT PUT) ; 
WRITELN ("pour arreter, 
WRITELN('pour quitter, 
WRITE ("numero 
}; 
WRITELN ("prenom 
WRITELN:;: 
Cho x! !: 
WHILE (Il1<=Table1l{0j.Index) AND (Choix<>'Q') DO 
BEGIN 
Num _2:=Tablel{11j.1ineex: 
SEEK (Fitab, Num 2}; GET(Fitab])}; Table2:=F'itab/ 


n 
‘ 


Numero:=Table2{12}.Index: 
SEEK{(Fich, Numero); GET(Fich)}; 
WRITE (Numero:4,'" ‘,Fich“*.Nom:20,' "'}; 
WRITELN (Fich''.Prenom:20,' ",Fich".Ville:28); 
IF KEYPRESS THEN BEGIN READ {Choix}; READ (Chf 
oix); END; 
I2:=12#1; 
IF I2>Table2{0}.Index THEN BEGIN I2:=-1; I1:=f 
I1+1; END; 
END; 
END; 


taper sur une fleche"); 
taper Q');: WRITELN; 
nom 7 


ville): 


BEGIN (*debut du programme“) 
Plafond:=Dim*{Dim DIV 2); 
PAGE (OUT PUT) ; 
Initfichier: 
IF Erreur=FALSE THEN REPEAT 
WRITELN, 
WRITELN('choisissez: Ajouter une fiche, Recher/ 
chez, Lister, Quitter :");: 
WRITELN ('{ou "à": ajout aleatoire)"'}); 
READ(Choix); WRITELN; 
CASE Choix OF 
‘Ar, Sa: Ajouter: 
*Li: Listers 
"R': Rechercher; 
END; 
UNTIL Choix="Q"; 
CLOSE (F'ich) CLOSE (Fitab);: 
END. 


{*"à'": pour essai*) 





Pom's n° 3? 














afale de nouveautés 
chez Apple. Elles 
ont été dévoilées en 

à.# août et feront leurs 
débuts européens à l'Apple 
Expo. 





La première de ces innovations 
est baptisée HyperCard, après 
avoir été connue sous le nom de 
code WildCard. Que les lecteurs 
anglophones ne se jlaissent 
toutefois pas abuser par cette 
désignation : il ne s'agit pas 
d'une carte d'extension, mais bel 
et bien d'un programme. Le plus 
difficile est d'expliquer exacte- 
ment à quoi il sert. Chez Apple, 
on le décrit seulement comme un 
‘hypermédia’ ou langage de 
navigation sur les bases de 
données. C'est eéneffet la 
première caractéristique de cette 
application, qui constitue un 
‘Hypertexte’. 


L'hypertexte est un programme 
permettant, en cliquant sur un 
dessin à l'écran d'obtenir des 
informations plus détarllées sur ce 
dessin, et ainsi de suite. La firme 
Owl1, fut la première à dévoiler 
un produit de ce genre avec 
Glue. Elle fut donc la première à 
râler lorsque Apple dévoila son 
HyperCard. D'autant que le 
programme d'Apple sera distri- 
bué gratuitement, eh oui gratuite- 
ment, avec tous les Macintosh. 


Certaines applications déjà 
réalisées laissent entrevoir les 
utilisations de cet outil. L'une est 
un manuel de réparation de 
bicyclettes. Lorsque l'on clique 
Sur une roue, on voit s'ouvrir une 
nouvelle fenêtre détaillant la pièce 
sur laquelle on a cliqué, et ainsi 
de suite. L'autre est le manuel 
d'utilisation de l'HyperCard, qui 
se présente à l'écran comme un 
bloc note illustré. On clique sur le 
titre d'un sujet, ou sur une 
information qu'on souhaite 
détailler et la page se toume pour 
afficher la leçon. Très joli. Rien 


Jean-Michel Gourévitch 


d'étonnant, si cet outil semble 
voué à la recherche des millions 
d'informations stockées, par 
exemple, sur un CD Rom laser. 


Œuvre de Bill Atkinson, le 
père de MacPaint. Apple 
Hypercard est en fait un 
programme de gestion de docu- 
ments utilisant des fiches (cards) 
et des piles (stacks). La program- 
mation consiste à établir des 
relations entre cartes et piles grâce 
à des ‘boutons’ (des zones sur 
lesquelles on clique à l'écran). 
Ces boutons sont créés simple- 
ment grâce à un menu contenant 
des outils, il reste ensuite à 
définir l'action provoquée par un 
clic de souris : l'ouverture d'une 
autre fiche, ou grâce à un script 
(séquences de commandes d'un 
langage baptisé HyperTaïlk et 
comprenant une cinquantaine 
d'instructions) la mise en oeuvre 
d'une série d'actions (les 
programmeurs noteront qu'on 
peut même ouvrir alors une 
application, ou déboucher sur un 
programme écrit en MPW, le 
langage de programmation 
d'Apple). 


HyperCard a déjà suscité tout un 
foisonnement de mini- 
applications baptisées stackware. 
Comme, par exemple, un guide 
touristique interactif. Bref, 
beaucoup de bénéfices pour pas 
grand chose, puisque HyperCard 
sera distribué, rappelons le, 
gratuitement. Le seul vrai 
problème est que ce programme 
consomme à lui seul 360Ko 
d'une disquette, et que les 
fichiers qui incorporent beaucoup 
de graphiques sont encore plus 
voraces. Avec HyperCard, le 
standard minimum du Mac vient 
de passer à une configuration 
incluant au moins un disque dur 
de 20 Mégas. Faute de quoi, on 
ne peut vraiment utiliser cette 
application géniale et dont on n'a 
pas fini de parler. 


Et ce n'est pas fini, car l'autre 
nouveauté d'Apple, le 
MultiFinder est lui particulière- 
ment exigeant en mémoire vive. 
Connu sous le nom de Juggler, 
ce MultiFinder est incorporé à la 
dernière version du Finder et 
repose sur les programmes écrits 
par Andy Hertzfeld sous le 
nom de Servant. Il s'agit d'un 
commutateur d'applications inté- 
gré au Bureau du Macintosh. 


À la différence du Switcher, 
après avoir cliqué deux fois sur le 
MultiFinder, les applications 
deviennent simplement des 
fenêtres posées sur le bureau que 
l'on peut rétrécir par leur case de 
contrôle de taille. En dessous 
c'est toujours le bureau. On passe 
d'une application à l'autre en 
cliquant sur sa fenêtre et son 
menu vient alors prendre place 
dans la barre des menus du 
Macintosh. Pratique, pour 
échanger des documents entre les 
programmes et lorsque les 
auteurs des programmes l'auront 
prévu, on pourra réaliser une 
impression en tâche de fonds. On 
peut ouvrir simultanément 30 
applications. 


À condition de disposer de 
suffisamment de mémoire vive. 
Car, et c'est là que le bât blesse, 
il faut au minimum 2 Mégas de 
mémoire pour utiliser vraiment le 
MultiFinder (1 Méga est un peu 
juste, et S512Ko sont 
définitivement insuffisants). Une 
seule solution : acheter des 
extensions de mémoire. Il y a de 
la râlerie dans l'air... 


Autre nouveauté en provenance 
d'Apple : une imprimante bapti- 
sée ImageWriter II LQ. La LQ 
dispose d'une résolution de 216 x 
216 points par pouce. Soit le 
double de l'ancienne Image 
Writer, et à peine moins que la 
Laser Writer (300 x 300 points 
par pouce). Cette imprimante 
matricielle de très haute qualité 
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qui ne dispose cependant pas du 
langage de description de page 
PostScript (comme la Laser) est 
vendue aux alentours de 13 000 
Francs HT. Dans le même temps, 
la Laser a baissé de plus de 20% 
passant de 49 900 F à 39 900 F 
HT. L'offre d'Apple se resserre 
donc. On attend pour les 
prochains mois une imprimante 
laser de très haut de gamme qui 
pourrait frôler les 80 000 Francs, 
et offrirait une résolution supé- 
rieure à 400 points par pouce, se 
rapprochant encore davantage des 
machines d'imprimerie profes- 
sionnelle. 


En bas de gamme de laser, on 
attendait une machine Apple. 
Surprise, c'est General 
Computer qui l'a sortie. 
Baptisée Personal Laser 
Printer, cette imprimante vendue 
2 600 dollars aux Etats-Unis 
pourrait arriver en France aux 
alentours de 26 000 Francs. Elle 
ne possède pas le langage de 
description de page PostScript (ce 
qui exclut actuellement de 
pouvoir l'utiliser avec le pro- 
gramme Illustrator d'Adobe). 
On peut cependant imprimer des 
documents réalisés avec 
PageMaker, qui s'est véritable- 
ment imposé comme un standard 
dans l'édition électronique, dont 
nous allons parler plus loin. 


En attendant, on travaille bien 
évidemment chez Apple à toute 
une salve de nouveautés. On a 
ainsi entendu parler d'un Mac 
SE qui pourrait inclure un écran 
couleurs, voire la carte du Mac 
IT avec un seul connecteur 
d'extensions, d'un SE, qui serait 
vendu, à l'inverse, sans écran, 
etc. Il est sûr qu'une équipe 
travaiile sur un micro-ordinateur 
équipé d'un processeur 68030. 


On se rapproche peu à peu du 
pari de John Sculley, qui voudrait 
offrir un micro-ordinateur offrant 
une puissance de 100 Mips 
(Millions d'instructions par 
seconde), c'est-à-dire la puis- 
sance des volumineuses unités 
centrales d'aujourd'hui, et ce 
avant l'an 2000. 


Côté programmes, la démarche 
d'Apple de créer une filiale de 





fabrication de logiciels (dont elle 
pourrait toutefois devenir action- 
naire minoritaire) a suscité 
quelques remous aux Etats-Unis. 
Il s'agit en fait de contrebalancer 
la position dominante de 
MicroSoft. 


En Europe, une unité de 
programmes stratégiques se 
charge d'aider les développeurs 
de logiciels. On peut déjà 
discerner les créneaux qu'Apple 
va tenter de favoriser. En premier 
lieu, bien évidemment, la 
publication électronique, en 
second lieu, les langages de 
programmation. Et puis toutes les 
applications tirant parti de la 
puissance et des caractéristiques 
exclusives du Mac II. 


Ainsi, il faut s'attendre à voir 
encore davantage de logiciels de 
CAO et d'architecture. C'est que, 
comme le remarquait récemment 
une revue de CAO américaine, 
l'Europe occupe dans ce domaine 
une position privilégiée. Bien que 
le nombre d'architectes rapporté 
aux habitants soit plus faible de 
ce côté-ci de l'Atlantique. Enfin, 
seront privilégiés tous les 
programmes scientifiques, 
permettant d'implanter le 
Macintosh dans des bureaux 
d'études, ou au contrôle de 
production en usine. On n'a pas 
fini d'en voir. Et de toutes les 
couleurs, grâce à la marée 
montante des écrans polychromes 
pour le Mac H... 


Traitements 
de texte à gogo 


Tandis que les utilisateurs de 
Writer Plus continuent à se 
désoler des bugs sauvages d'un 
programme par ailleurs génial, 
Word s'est imposé sur le 
marché. Peut être pas pour 
longtemps. Car voici que 
WordPerfect, le géant du 
traitement de texte sur IBM PC 
s'apprête à sortir une version 
pour le Mac qui va faire quelque 
bruit. Avec des macro- 
commandes, un vérificateur 
orthographique et un dictionnaire 
de synonymes, le muliti- 





> 


colonnage à l'écran, la césure 
automatique, la génération de 
notes de bas de page, tables des 
matières, d'index et de 
traitements d'idées. Et surtout la 
possibilité d'échanger des fichiers 
avec ceux créés sur les IBM, les 
Vax de Digital Equipment et les 
Data General. 


Emploi 


Société de Recherche/ 
Développement en pointe 
dans son domaine (50 
personnes) offre 

Poste d'informaticien 
Bac +2, 3à 5ans 
d'expérience, dont un an 
minimum en micro- 
informatique pour : 
0 mise en place d'un réseau 

Macintosh (AppleTalk) ; 
0 développement d'une base 
de données multi- 
utilisateurs sur 4D ; 
formation du personnel ; 
0 réponse aux besoins des 

chercheurs. 


S 


Possibilité d'évolution au 
sein du groupe pour un 
spécialiste micro. 


Contact : Sté Clonatec, 
M. Mergui (1) 43 42 43 88 


Vous utilisez un Apple 
Îl, un Mac ? 

Vous suivez l'évolution 
de l'informatique ? 

Les nouveaux produits 
ne vous échappent pas ? 
Par votre pratique de 
l'anglais vous êtes au fait 
des nouvelles 
d'outre-atlantique ? 
Vous pouvez consacrer 
quelques heures à votre 
revue préférée ? 


Écrivez à Éditions Mev, 12, rue 
d'Anjou - 78000 Versailles 
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En France, Talor déjà auteur 
d'un traitement de texte pour 
l'IBM PC a développé Textor 4 
pour le Macintosh capable, lui 
aussi d'échanger des fichiers avec 
le monde MS DOS. Textor vise le 
marché des techniciens avec un 
éditeur de fonnules mathéma- 
tiques et un tableur. 


Autre traitement de texte vedette 
outre Atlantique : Full Write, un 
logiciel avec multi-colonnages 
générations de “post it notes” 
qu'on peut ‘coller’ sur un 
document et système de dessin 
incorporé, avec possibilité 
d'habillage automatique d'images 
irrégulières par un un texte. 


Publication 
électronique : 
le grand débat 


Du côté de la publication 
électronique, on s'agite aussi 
beaucoup. Aldus a sorti la 
version 2.0 de PageMaker et 
travaille déjà à une version 3.0 
encore perfectionnée. LettraSet 
a sorti une version 4.0 de Ready 
Set Go!. On y dispose 
notamment d'un bureau à la 
présentation plus claire avec une 
main pour déplacer la page, le 
tracé de lignes diagonales, une 
palette de filets disponible par 
menus, un espacement contrôlé 
entre les mots, la spécification 
possible des césures avec un 
dictionnaire d'exceptions, un 
glossaire, un vérificateur ortho- 
graphique, l'habillage automati- 
que de dessins, etc. Quant à 
RagTime, importé par 
ItalSoft, il s'offre déjà une 
version 2 avec habillage des 
réserves, crénage, 40 trames de 
fond, une grille de construction, 
un traitement de texte avec césure 
automatique algorithmique, un 
dictionnaire d'exceptions 
personnalisables, etc. 


Au sommet des programmes 
d'édition, le match s'annonce 
passionnant entre PageMaker et 
XPress de Quark, vendu chez 
nous par P-Ingénierie. Disons 
simplement en résumé, que 


XPress grâce à sa création 
obligatoire de “réserves” pour le 
texte ou l'image peut être plus 
facilement manipulé par 
quelqu'un n'ayant aucune notion 
de mise en page, mais pour qui 
l'on a pré-défini des gabarits. En 
revanche, PageMaker qui 
accepte n'importe où des textes 
ou des images, sans que l'on ait 
besoin de le spécifier se révèle 
souple et particulièrement rentable 
aux mains d'utilisateurs 
imaginatifs. 

L'arrivée de Scoop pourrait 
encore agiter Ce nouveau secteur 
en plein développement et où le 
Macintosh tient toujours le haut 
du pavé. 


L'avenir ? 


L'année 1988 se révélera cruciale 
pour Apple. Si la firme de 
Cupertino sait bien utiliser ses 
arguments et étendre ses 
positions dans des domaines où 
elle est en pointe, elle peut 
profiter de l'instabilité instaurée 


par la rupture de standard du 
monde IBM. Il ne serait pas 
étonnant d'assister dans ce débat 
à une alliance entre DEC (le 
spécialiste numéro 1 des mini- 
ordinateurs) et Apple pour faire la 
nique au géant IBM. On constate 
déjà un grand nombre de 
connections réalisées entre des 
Mac et des VAX de DEC. 
L'apparition de cartes permettant 
de relier les Mac aux réseaux 
Ethernet (avec notamment le 
logiciel 3 COM Plus) est un 
signe important dans ce sens. 


Quant à AppleTaik, le réseau de 
connections d'Apple, il est 
aujourd'hui tout simplement le 
plus répandu au monde reliant 
entre eux quelque 450 000 
Macintosh. L'avenir du Mac est 
donc dans les réseaux. On 
s'éloigne à grands pas de la 
machine des “travailleurs du 
savoir” vantée jadis par Steve 
Jobs. 


Et si c'était la clé du succès ? 





Dans cette nouvelle rubrique, nous vous présentons une sélection des 
questions/réponses échangées sur la messagerie de CalvaCom. Notre 


boîte à lettres : empi1. 


7) Bonjour. “AR - 14 |. 


De: Cédric NEROT (CN10) - 02 sep 87 22h26 


Bonjour ! 


Enfin je trouve 5 minutes pour faire exploser ma joie ! Pom's est sur 
Calva II! Nous passerons rapidement sur tout le bien que je pense de vous 
(L'heure de connexion ici bas n'est malheureusement pas donnée !) pour 


arriver à ma question. 


Envisagez vous de télécharger les programmes de la revue via Calva, avec, si 
besoin est, dédommagement ? || semble en effet bien plus pratique, et bien plus 
rapide (pour ne pas dire : plus sur, avec les Postes niçoises) de récupérer un 
texte de cette façon que par une disquette soumise aux voies de fait postales. 


Qu'en pensez vous ? 


Amicalement & admirativement votre. 


Merci, vous nous faites rosir.. Nous pensons dans un premier temps mettre 
à disposition sur bibliothèque CalvaCom des programmes mais nous 
réfléchissons également à un projet plus large : la chose est à l'étude. 
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4) Questions naives - 43 |. 
De: Patrick BARCZEWSKI (PB46) - 04 aou 87 11h06 


Bonjour à tous, et merci d'avance du emps que vous voudrez bien 
consacrer aux questions suivantes qui vous sembleront sans doute 
bien candides. 


1/UPGRADE 

Abonné à Pom's, je dispose des programmes suivants : 

1/Minitel (disquette commandée avec votre numéro 27) 
2/Interpom's (disquette commandée avec votre numéro 28) 

Je souhaite les metire au niveau des versions décrites dans votre 
numéro 31, et vous commander le programme CLV_POM'S. 

Un tarif spécial est-il prévu 7? 


2/AFFICHAGE 80 COLONNES 

Le serveur envoie en ligne au minitel IB la commande qui le fait basculer 
en mode 80 colonnes. J'ai des problèmes pour restituer localement un 
fichier sur lequel figure un tel passage. 

En d'autres termes, en mode consultation de votre programme minitel, 
quelle est la séquence de touche qui permet de reproduire localement 
sur le 1B cette commande du serveur? 


3/FILTRAGE DES CARACTERES ACCENTUES 

Votre programme minitel, mode préparation de texte, avec lequel ce 
message est passé sur Calvacom après préparation sous Macwrite, 
semble, comme vous potwez le constater, avoir des difficultés à filtrer 
les caractères accentués. Comment y remédier? 


Encore bravo pour ces programmes de comm vraiment utiles. 
Cordialement, 
Patrick Barczewski (PB46) 


1/UPGRADE 

Pour une question de droits d'auteur (modif IBM obligent), nous ne 
pouvons envisager de tarifs spécaux pour inter Pom's, même pour les 
fidèles... 

La nouvelle version Mac du programme Minitel du n° 27 est sur la 
disquette 31, en votre possession si vous êtes abonné. 


2/AFFICHAGE 80 COLONNES 

Le Minitel passe en mode téléintormatique français par la séquence : 
FNCTT suivi de F. 

NB: Pour l'enregistrement de CalvaCom, CLV POMS est pratique. 


S/FILTRAGE DES CARACTERES ACCENTUES 

Le programme du 27 était conçu pour les serveurs Vidéotex ce qui 
explique vos difficultés (qui dépendent du type de Minitel}. 
CLV_POMS résoutle problème... 


6) questions sur clv-poms - 8 I. 
De: Gerard MARTZ (GM46) - 31 jul 87 15h16 


Le programme clv-poms permet-il de réceptionner également des 
fichiers binaires issus des bibliothèques ? 
Ce point n'est pas clairement expose dans l'article de pom's 31 ! 


Merci de me répondre en bal gm46 


Si vous avez un Apple #/, seulsles fichiers TEXT ou EXE peuvent être 
importés, maïs la plupart des programmes en langage machine ou en 
Basic sont disponibles sous la foime d'un fichier TEXT E XECutable. 
Pour le Mac, vous impoiterez en priorité BinHex, fichier Basic qui 
crééra l'application BinHex4. Avec ce programme et CLV_Poms, tous 
les fichiers sont récupérables (Packit 3 également en bib vous sera 
uële pour certains). 





1) TRANSFERT FICHIERS TXT EN RAM - 251. 
De: Francois MULLER (FM17) - 06 aou 87 09h53 


Chers Amis 

Merci d'abord d'avoir oisvert une BAL pour communiquer avec vous. 
J'ai un peu avancé depuis mon dernier courrier (transfert de 

fichiers TEXT en RAM)... 

J'ai transformé le programme COPYBASFILES de Francois Dreyfuss 
paru dans le numéro 28 de POM'S. 

Pour transférer des fichiers TXT en RAM il faut faire les Modfs 
suivantes: 


5 DIM L$(40), O$(40) 
155 P$-RIGHT$(LS(I),12) 
156 OSlI)=LEFTS(PS.5) 
11° BASE 
595 PRINT "CREATE"RSLS(I}".T TXT° 
600 PRINT *BLOAD"MMS:L$(I}".T TXT,A$ A00" 
700 PRINT "BSAVE"RS:L$(I}"T TXT,A$ A0OL ‘;0$I) 


Tous ce passe bien mais rapidement j'ai le message - DIRECTORY 
FULL - 
Exemple: je mets 12 fichiers TXT en RAM et j'ai ce message. 


Pourtant CAT/RAM me donne 
- BLOCKS FREE: 93 
- BLOCKS USED: 34 Oùest le problème ? 


PS : que signifie le T15 a la ligne 90 ? 
Merci d'avance pour votre réponse 


Normal : Le directory est effectivement saturé {pas le disque) car il 
n'est composé que d'in bloc au lieu de quatre pouries lecteurs 
classiques. 

Chaque bloc peut contenir 13 fichiers sauf le premier qui contient 
o'es infomations sur le suppoit et sur le catalogue lui-même : il ne 
peut en recevoir que 12. 

Sur votre lecteur 5,25 pouces, le directory est saturé avec 51 
fichiers : 

12+13+13+13251. 


La solution réside dans l'utilisation de sous-directory qui, eux, ne 
sont pas limités en taille : 
Pour en créer un : PRINT D$"CREATE /RAM/SOUS.CAT,TDIR" 


T15 signifie type directory, c'est équivalent à T$F et TDIR. 





4) Pom's - 41. 
De: David BENSIMON (DB25) - 14 sep 87 12h11 


Votre revue est super super super !! 
Bravo et continuez avec cette qualité ! 


David Bensimon. 


Merci, nous en restons sans voix.… 


4) Cordon MAC + MINITEL - 61, 
De: NUMERA (PN19) - 08 ju! 87 21h07 


Bonjour 

Philippe C. m'a dit que vous pourriez me procurer un cordon 

MAC + /MINITEL. Quel en est le prix et serait il possible d'en avoir 
un d'une longueur de 5 m environ si cette longueur n'est pas critique. 
En attendant impatemment de vos nouvelles... 

Je vous remercie d'avance. 





Nous pouvons effectivement effectuer cette liaison qui vous 
coûtera 300,00 F Franco. 





4) prog ch + pb export - 11 I. 
De: Olivier FAGES (0F17) - 04 sep 87 00h27 


Bonjour, Je suis fidèle lecteur et utilisateur des PROGS de Pom's. En 
particulier, CLV et MINBAS qui m'aident à découvrir CALVACOM. 
Mais j'ai des pbs : 


-Avec CLV j'obtiens des fchiers en inverse et non exploitables avec 
AppleWorks, utilisables avec AppleWriter (mais après CONVERT II). 
Y at-il une solution à ce pb. 


2-CALVACOM incite à EXporter mais le 75 bauds est limitatif. Avec 
un minitel 4B, votre génie, 1 Apple série, ne peut-on pas faire plus vite 
{SANS modem) ou est-ce une limitation du serveur spécial minitel 

je n'y connais pas grand chose et compte sur vous ou un forum. 


olivier /of 17 


Nous n'avons pas vos difficultés avec notre AppleWorks qui semble 
indifférent au ‘poids fort des octets composants le fichier TEXT. 
Nous avons toutefois apporté une modification à CLV dans sa version 
1.01, mais nayant pas le problème, nous ne savons pas si est 

résolu... 


2 solutions : 

- nous renvoyer votre disquette pour échange, 

- nous téléphoner si vous avez Inter Pom's pour télécharger la nouvelle 
version. 


CalvaCom ne gère pas le retournement du Minitel pour qu'il émette 
à 1200 bauds, donc, pas de solution inmédiate. 


| 








Pour cette première grille de mots croisés de Pom’s, nous vous proposons un petit concours : soyez le 
premier à nous envoyer la solution et vous bénéficierez d'un avoir de 200,00 F sur Les produits Pom's, 


pourquoi pas Ordico ?.…. 


Les possesseurs de la disquette d'accompagnement pourront résoudre le problème sur leur Macintosh 
grâce à l'application — écrite en Turbo-Pascal par Roland Jost — présentée dans ces pages. 


grille n° 1 


Imprimer 


Horizontalement 


1- Pas tres bas 2- Reprises 
3- Parasites - Tout un sac, c'est pas épais 
4- Sur un arbre, mais pas un fruit - Pour les babies 
S- Pour un essai, c'est raté - Deux pour les Zazous 
6- Pour le coureur de fonds - Deux pour un parfum 
7- Sans ordre 
8- Roche rouge 
9- Plainte mélancolique - 

Mauvais pour la vigne, bon pour bébé 
10- Possessif - Distant 


Verticalement 


2- Française 


1- Ne pleurent pas entre les rails 
4- Courant - On peut y trouver le 8 horizontal 


5- Abréviation couronnée - Amère 
7- Subissant 


10- Sur certaines tables - Poursuit sans courir 





Problème 32 par Joelle Piard 


3- Toujours plus proches 


6- Possessif - Pour tailler le 8 horizontal 
8- Deux à Paris - Ne reconnaîtra plus 
9- Fut en Asie Mineure - Une pomme grand sport - Oui 
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* pour les envois par avion, ajoutez 15 F par numéro etou par disquette soit, par exemple, 90 F pour un abonnement avec ou sans disquettes. 


Disquettes Apple II Macintosh Accompagnement 

























































































CLV_Pom's - 140Ko ou 800Ko 200,00F L] CLV_Pom's  200,00F [] A]J[140Ko4 6000F © 
Éditeur Vidéotex - 140Ko 200,00 F L] Mac Raccourci 200,00 F C1  AJ[140Ko5 60,00F 01 
E.PE. 5.1 - 140Ko 200,00 F CE MacAstuces  200,00F L A][140Ko6 60,00F ©] 
E.P.E. 5.1 - 800Ko 200,00 F [1 Mac ‘A’ 80,00 F [1 AX140Ko7 6000F [] 
Max (moniteur étendu) - 140Ko 150,00F [1 Mac ‘B’ 80,00 F C1 AÏ[140Ko8 60,00F EL 
BananaSoft - 140Ko 200,00F [1 Mac ‘C’ 80,00 F C] A][140Ko9 6000F © 
Pascal - 140Ko 80,00 F [] Mac ‘D’ 80,00F [J] A][140Ko10 60,00F O 
Max (moniteur étendu) - 140Ko 150,00 F [1  Mac‘E’ 80,00F C1 AJ[140Ko1t 60,00F 
Dominos - 140Ko 80,00F [] Mac ‘F' 80,00F OC] A]J[140Ko12 60,00F 
COGO - 140Ko 200,00F [1 Mac ‘G' 80,00F [1 A][140Ko13 60,00F [] 
Ludologic - 140Ko 80,00 F [1 Mac ‘H' 80,00F [1 A][140Ko14 60,00F © 
Ordico - 140Ko 200,00F [1 Mac |‘ 80,00 F [1 AÏ[140Ko15 60,00F C1 
———— " —— _———..—— A][140Ko16 60,00F L] 
Recueils Pom's Mac17 150,00F [1  AJ[140Ko17 60,00F LI 
Mac 18 80,00 F © A][140Ko18 60,00F C] 
Numéro 1 (Revues 1 à 4) 140,00 F OI Mac 19 80,00F [1 AJ[140Ko19 60,00F [] 
Disquettes 1 à 4 200,00 F [] Mac 20 80,00F [1 A][140Ko20 60,00F [] 
Numéro 2 (Revues 5 à 8) 140,00 F C] Mac 21 80,00F OC] A][140Ko21 60,00F [] 
Disquettes 5 à 8 200,00 F E] Mac 22 80,00 F [] A][40Ko22 60,00F [] 
Numéro 3 (Revues 9 à 12) 140,00 F C1 Mac 23 80,00F [1 A][140Ko23 6000F [] 
Disquettes 9 à 12 200,00 F [1 Mac 24 80,00F [] A 140Ko24 60,00F [1 
Mac25 80,00F [] A] 140Ko25 60,00F [1 
reliures toilées Mac 26 80,00F [] A][140Ko 26 60,00F L] 
pour 6 numéros, soit un an 60,00 F [1 Mac 27 80,00 F [1 A 140Ko27 60,00F [] 
Mac 28 80,00F [1 A][140Ko28 60,00F L] 
Apple ][ 800Ko 35 numéro 29  80,00F [] Mac 29 80,00F LC] A][ 140Ko 29 60,00F [] 
Apple ][ 800Ko 35 numéro 30  80,00F [1] Mac 30 80,00F [] A][140Ko30 60,00F [1 
Apple J 800Ko 35 numéro 31  80,00F [] Mac 31 80,00F [1 A][140Ko31 60,00F 
Apple ][ 800Ko 3'5numéro32  80,00F [] Mac 32 80,00 F [] A][140Ko32 60,00F © 
Revue n° 8 39,00 F [1 Revue n° 10 40,00F 0] Revue n° 11 40,00F [] 
Revue n° 12 40,00F [] Revue n° 13 40,00F [1 Revue n°14  40,00F [1] 
Revue n° 15 4000F EC] Revue n° 16 40,00F Q Revue n° 17 40,00F [] 
Revue n° 18 40,00F [] Revue n°19 4000F Revue n° 20 4000F D 
Revue n°21 40,00F 0 Revue n° 22 40,00F [] Revuen°23  40,00F [ 
Revue n° 24  40,00F [] Revue n° 25 40,00F Ci Revue n° 26 40,00F 
Revue n° 27 4500F ©] Revue n° 28 45,00F 0 Revue n° 29 4500F [] 
Revue n° 30  45,00F [1 Revue n° 31 45,00F © Revue n°32  4500F [] 
Abonnements pour six numéros à partir du mr Fe 
la revue seule 225,00F © 
la revue et les disquettes Apple ][ 140Ko —5" 1/4 52500 E] 
la revue et les disquettes Apple ][ 800Ko - 3° 1/2 625,00F CO 
la revue etles disquettes Macintosh 625,00F 0 
la revue, les disquettes Apple ] 140Ko — 5" 1/4 etles disquettes Mac 925,00F [] 
la revue, les disquettes Apple ][ 800Ko — 3° 1/2 etes disquettes Mac 1025,00F [] 
Envoyez ce bon et votre règlement à : Éditions MEV - 12, rue d'Anjou — 78009 Versailles 
Nom : 
Adresse : en 
Règlement par: Carte Bleue/VISA C1 &  Chèquebancaire [1 Chèque postal [] Mandat L] 
numénoide" JA CAE 2 no date d'expiration __ __ __ 
Montant ____, EF Signature : 
Pomis n° 32 


a — 





Câble-interface de communication AppletMinitel 


Cette liaison —-décrite dans les numéros 27 et 28 de Pom's - est indispere pour te Droure ks programmes suivank : 


*_ MinBas pour Apple ][+, //e, fe+, fic et GS" : programme permetiant lemegssement > écrens Maitel, la restitution à loisir 
hors réseau, le stockage et/ou l'impression de copies d'écran du Minitel, et ass lama Ef= g5 messages sUr Un serveur, cs 
messages étant préparés à l'avance avec n'importe quel programme de ra ner se exr Eongemme publié dans le numéro 27 
de Pom's. 

*_ Minitel/1 pour Macintosh : programme identique à MinBas pour Apple ]f, avec ea us en œmi=dlay << ExX°e pour la préparation 
etle stockage des messages sans sortir du programme. Programme publié dansk aurer 27 Æ =2m 

*_InterPom's pour Apple [[+, //e, //e+, fic et //GS* : programme de téléchargement > 29e & me £coe E et Macintosh. Ce 
logiciel autorise la transmission de n'importe quel type de fichier (système, texte, bars =æe D re  Mocem du Minitel. 
Programme publié dans le numéro 28 de Pom's. 

+ InterPom's pour Maaintosh : même programme, mais version Macintosh. Programme pub = € mme Æ = Pons. 

*_ TPom's pour Apple ][+, //e, lle+, lic et {{GS** : programme de récupération de l'annuairs tomes sus & one ce fichiers 
texte. Voir page 53 du numéro 30. 

*__ TPom's pour Macintosh : Identique à la version Apple ][. Voir page 42 du numéro 30. 

‘ cœæ programme est prévu pour fonctionner avec une carte Super Série Apple ; le port série intégré de ame RSS re came pas. 
Toutefois, si vous désirez utiliser ke port intégré afin d'y connecter le Minitel pour d'autres appiinre, commentez un ble pour 
Macintosh Plus. 

** sur un Apple IIGS, TPom's fonctionne indifféremment avec le port série intégré ou la carte Super Sée Êgee Cour ae ke 

port intégré du IIGS, utilisez un câble pour Macintosh Plus. 


Je désire recevoir: cäbie Minitel/Apple ]{+, //e, //e+, Iles avec SSC  ___ à 22500F 
cäble Minitel/Apple //c ___ 42500 
câble MiniteVMacintosh 128 & 512Ko __— AO 
câble Minitel/Macintosh Plus, Ils port intégré ____ à 225,00F 
câble Minitel/IBM PC'* __— à 260 
câble de liaison locale Apple I/Mac/IBM"" * à 225,00F 


“(préciser le type des deux machines à relier : Mac 512, Mac Plus, Apple fe Jic, IIGS, IBM PC PC ) 


* pour les envois par avion, ajoutez 15 F par câble. 





Envoyez ce bon et votre règlement à : Éditions MEV —12, rue d'Anjou - 78000 Versailles 
Nom : - 
Adresse : RS 
Règlement par: Carte Bleue/VISA C1 & Chèque bancaïre [] Chèque postal [1 Mandat [] 
numéro de la carte date d'expiration 


Montant nd Signature : 











Programme de transmission InterPom’s 


Ce programme décrit dans le numéro 34 vous donne la possibilité d'échanger à distance via Minitel et en local des fichiers de texte 
entre Apple //, Macintosh et IBM PCT". Entre deux machines de même type, tous les fichiers sont transtérables : Applications, polices 
de caractères, accessoires de bureau, commandes, document graphiques etc. 


Je désire recevoir: InterPom's pour Apple //, disquette 140Ko, 5'25 à 450,00F 
Inter Pom's pour Apple //, disquette 800Ko, 325 __ à 450,00F 
InterPom’s pour Macintosh, disquette 3'25 ___ à 45000F 
InterPom's pour IBM PC" ____ à 450,00F 


* pour les envois par avion, ajoutez 15 F par disquette. 


Envoyez cœ bon et votre règlement à : Éditions MEV - 12, rue d'Anjou - 78000 Versailles 
Nom : 

Adresse : A 
Règlement par : Carte Bleue/VISA ©] & Chèque bancaire [] Chèque postal [1 Mandat [] 
numéro de la carte date d'expiration __ __ 


Montant © Signature : 














Dépôt légal : septembre 1987, n° d'impressien 789441 
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L'anti-disque 
SpeediskT", 
la RAM Card à mémoire permanente 
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ti 


Rapidité Temps d'accès à l'information : 0,2 ms 
(100 fois plus rapide que les disques 
durs...), 

Par exemple : 
démarrage sur Basic.System en 35, 
AppieWriter disponible en à peine 1 s. 
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Trazz2e2ask 


Fiabilité Constituée de circuit CMOS à très 
faible consommation, SpeediskTM est 
aussi fiable que l'ordinateur lui-même. 
Elte est insensible à l'environnement. 


= —<— 








Capacité SpeediskTM est proposée en quatre 
versions : 
1 Mo (1 048 576 octets) 
384Ko extensible à 1Mo 
avec horloge compatible ProDOS 
(pour les Apple )(+, //e) ou sans (IGS) 





Compatibilité 100% compatible avec ProDOS (c'est 
un volume), SpeediskTM fonctionne sur 
Apple }(+, sur Apple //e et sur Appie 


se || RRRERESS 
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A PA 1GsS. 
a 1 Prix Lecteur de Pom's. vous bénéficiez 
AI al ; d'une remise de 10 % : 
LD} A0! 
2  % SP400 
HA 384Ko SO 359100 
à EG SP1000 
DE og 1 Mo s2e000 5 391,00 
EN FH 
A FE 5% SPAOOH | 
3 384Ko horloge 45e 4 122,00 
2] SP1000H 


1 Mo horloge pr 5922,00 


Garantie SpeediskT" est une fabrication 
française garantie un an par échange 
de la carte. 


sis 


Banc d'essai dans la revue Pom's n°31 





Vente par correspondance, Logma S.A. 
@ = avmmomour D ESS documentation, 12,rue d'Anjou 
D MAO AdQ AO CD SE renseignements 78000 Versailles 
A 2 vuce zou owvauus CE e 
Le usine Tél : (1) 39 51 24 43 






Speedisk'" est une marque déposée de 
Thot Informatique® - France 


Speedisk 










Je désire recevoir -sans engagement — votre 
documentation sur les cartes SpeediskTM 











